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der „kleinen HiFi Video in Düsseldorf - vollzog Schneid 
: Ende August letzten Jahres - zur HiFi Video in Düsseldorf - vo zog Schneider 
Computer mit der- Vorstellung des CPC-464 den ersten Schritt in einen, für das 

















Unterneh- 

men bis dato Fachleuten, die 
neuen Markt. Zweifel anmel- 
Zu der über- . ob es 
wiegend po- dem deutschen 
sitiven Reso- 7: Newcomer“ 
nanz beim wirklich gelingen 
Publikum würde, sich ge- 










gen die etablier- 
ten. Wettbewer- 
ber, meist aus 
den USA und 
Japan, durchzu- 
setzen. 


Weiter S. 48 


Bereits am ersten Tag der Computer- ") Mischten 
Show in Köln war der Tronic-Verlag | Sich damals 
mit einem Redaktionsteam auf der | auch durch- 
Messe gegenwärtig. aus Skepti- 
Schon während der ersten Messe- | Sche Stim- 
stunden herrschte an fast allen Aus- | Men . von 
stellerständen ein reger Publikums- 
andrang, wobei besonders auffällig |, 
war, daß bei den Besuchern alle Al- ; 
tersgruppen zwischen zehn und 60 
Jahren vertreten waren. 
Nach der Hannover-Messe, mit; 
zahlreichen Neuheiten auf dem 
Computermarkt, war in Köln von 
vornherein kaum mit entschei- ; l 
denden Neuvorstellungen zu 
rechnen, 
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Der nächste Erschei- 
nungstermin von 


„Compute mit" 


ist der 


19. August 


Ihr Zeitschriftenhändler 
hält dann wieder die 
neueste Ausgabe für 
Sie bereit. 
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Bitte Mediaunterlagen anfordern. 
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Anzeigenannskmeschluß: 
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Urheberrecht: 


Alle in „Compute mit“ veröffentlichten Beiträge sind urheberrechtlich 
geschübzt. Alle Rechte, auch Übersetzungen, vorbehalten. 


Reproduktionen jeder Art (Fotokapien, Micraliim, Erfassung in Da- 
tenverärbeitungsanlagen usw.} bedürfen der schriftlichen Genehmi- 
gung des Verlags. Alle veröffentlichte Software wurde von Mitartei- 
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Aus ihrer Veröffentlichung kann richt geschlossen werden, daß die 
beschriebenen Lösungen oder Bezeichnungen frei von Schutzrechten 
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Bezugspreis: 

Einzeihet 2,80 DOM 
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Ausland: Europa 40,- DM 

ohne Kassetlen! 


Autoren, Manuskripte: 


Der Vertag nimmt Manuskripte und Software zur Veröffertüchung 
gerne entgegen. 


Solite keine andere Vereinbarung getiotlen sein, s0 gehen wir davon 
aus, daß Sie mit einem Hönorar von 320,- DM pro abgedruckter 
Seite im Heft einverslanden sind. 


Bei Zusendung von Manuskriptert und Software erteäit der Autor dem 
Verlag dieGenehmigung zum Abdruck und Versand der verötlenllich- 
len Programme auf Datenlräger. 


Rücksendung erfolgt sur gegen Erstaltung der Kosten. Zusendungen 
von Software zur Veröffentlichung soften felgendes enthallen: 

Kopierlähige Kassette ader Diskette mit dem Programm (Computer- 
Bezeichnung), van Drucker erstelites Listing oder Serie von Bild- 
schimiolos (keine Schreibmaschirenlisiings), evil. Bidschirmfotos 
von einerı Probeiauf und ausführliche Programmbeschreibung {Er- 
klärung der Variablenliste, Beschreibung des Bildschirmaufhaues, 
Farbe, Grafik usw). Für eingesandte Programmuntertagen kann 
keinerlei Haftung übernommen werden. 
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Internationale Computer-Show Köln ’85 





Diese Erwartung bewahrheitete sich 
auch dann bereits nach einem ersten 
Messeüberblick. 

Neben zahlreichen namhaften Aus- 
stellern, wie beispielsweise Wang 
oder Commodore, bestimmten vor al- 
lem kleinere Aussteller und Zuliefer- 
firmen das Bild dieser Computer- 
Show. Besonders zahlreich vertreten 
waren dabei Zulieferfirmen, die sich 
auf eine Erweiterung des Angebots 
bei Schneider-Computern speziali- 
siert haben. 

Ein weiterer Schwerpunkt der Messe 
bestand In einem quantitätsmäßig 
breiten Angebot der Software-Fir- 
men. 

Als besonderes Merkmal ist noch 
folgendes festzuhalten: Erstmals bei 
einer Computer-Messe wurde dem 
Bereich der Datenfernübertragung 
eine eigenständige Sonderabteilung 
zugestanden. Diese Maßnahme der 
Kölner Messegesellschaft ist ein In- 
diz für die immer größer werdende 
Bedeutung dieser Kommunikations- 
möglichkeit. Auch. die Bundespost 
hat diese Entwicklung scheinbar er- 
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kannt, neben dem WDR-Computer- 
Club wies die Bundespost mit ihrer 
DFU-Vorstellung die mit Abstand 
größte Ausstellungsfläche auf. 


Fazit: 

Die Kölner Computer-Show '85 wur- 
de ihrer Vorankündigung „Die große 
Messe für kleine Computer“ durch- 
aus gerecht. Das Ausstellerangebot 


Reinigungs-Kit für Disketten-Laufwerke 
von SLSE lieferb 

















Cemsups miP 





umfaßte die gesamte Computerpalet- 
te für den .Berufs-, Haus- und Hob- 
bygebrauch und besaß damit eindeu- 
tige Parallelen zur Computer-Schau 
Dortmund im März dieses Jahres. 
Bemerkenswert ist auch die Tatsa- 
che, daß in zunehmendem Maße eta- 
blierte Firmen dem expansionsfähi- 
gen Feld der Datenfernübertragung 
Rechnung tragen. 






ar 


Zur Abrundung des Lieferprogramms 
hat die SCSE nun auch Reinigungs- 
disketten in den Vertrieb aufgenom- 
men, 

Die Reinigungsdisketten, die für 3-, 
5-, 5Y4- und 8-Zoll-Laufwerke liefer- 
bar sind, erlauben die Reinigung der: 
Schreih-/Leseköpfe ohne Ausbau 
der Laufwerke. 


Unterlagen können bei SCSE Com- 
putersysteme, Auraweg 1d, 8750 
Aschaffenburg, kostenlos angefor- 
dert werden. 
















hardware 


DRUCKE: 





Die Drucker PT 88/PT 89 sind leistungsstarke Matrixdrucker, die mit ein 
Das Tintendruckwerk wird dort eingesetzt, wo Jautioser Druck und hohe 
Nadeldruckwerk, wo Formularsätze bedruckt werden müssen. Der Druc 


em Tinten- oder Nadeldruckwerk lieferbar sind. 


Druckgeschwindigkeit gewünscht werden. Das 
ker PT 88 ist für Papierbreiten bis 250 mm, der 


PT 89 bis 400 mm geeignet. Beide Geräte sind weitgehend konstruktionsgleich. Die elektrischen Schnittstellen sowie die 


Bedienung sind identisch. 





Drucker PT 88 mit Rolienpapier 
_ Die Leistungsmerkmale auf einen Blick: 


Lautloser Tintendruck 

Der Tintendruckkopf arbeitet nach 
dem gleichen Prinzip wie das Druck- 
system des Siemens-Druckers PT 
80. Druckköpfe dieser Art sind 
weltweit erfolgreich im Einsatz. Die 
Tintenbehälter sind für alle Tinten- 
drucker kompatibel. Ihr Inhalt reicht 
für 5 Millionen Zeichen. Der Drucker 
arbeitet nach dem „Drop-on-de- 
mand“-Prinzip.. Die Tinte befindet 
sich in einem leicht auswechselbaren 
Tintenbehälter, in dem der Tintenvor- 
rat von Elektroden überwacht wird. 
Geht der Vorrat zu Neige, blinkt am 
Bedienungsfeid die Lampe „Alarm“ 
und es wird an der Schnittstelle eine 
Meldung ausgegeben. 


Alternativ: Nadeldrucker 

Die Anordnung der neuen Nadeln 
des Nadeldruckerkopfes ist identisch 
mit den neun Düsen. Druckraster und 
Zeichendarstellung sind bei beiden 
Druckerausführungen gleich. Alle 
Zeichen werden in einem Raster von 
9x9 Punkten dargestellt, damit kön- 
nen auch Unterlängen und Unier- 
streichungen gedruckt werden. 


Drucker PT 89 mit Faltpapier 


Zusätze 

Die Basisgeräte können mit Zusätzen 
dem Anwendungsfall optimal ange- 
paßt werden. Schnittstellenbaugrup- 
pen und Datenkabel passen die 
Drucker an verschiedene Systeme 
an. Bei einigen Varianten kann mit 
der Speichererweiterungsbaugruppe 
der Empfangspuffer auf max. 5 kbyte 
erweitert werden. Mit einer Funk- 
tionserweiterungsbaugruppe werden 
zusätzliche - Anforderungen erfüllt 
(Blockgrafiksymbole, Grafikdruckver- 
fahren u.v.m.). Alle Zusätze können 
einfach in das Basisgerät eingesteckt 
werden. 


Traktorantrieb 

Der Traktorantrieb liegt vor der 
Druckstelle. Das Papier kann also 
direkt nach dem Ausdrucken an der 
Abreißkante abgetrennt werden. Bei 
Verwendung ven Formularpapier 
geht keine Seite verloren. 


Grafikdruck: 

Bit-Image-Verfahren 

Beim Bit-Image-Verfahren trägt je- 
des übertragene Byte die Information 


Fo V a en rt 





einer Druckspalte. Nach dem Aus- 
drucken einer Zeile wird die nächste 
Zeile nahtlos mit dem (n + Tjten 
Byte begonnen. Eine beliebige Mi- 
schung zwischen Text und Grafik in - 
einer Zeile ist möglich. 


Grafikdruck: Scanner- 
Verfahren (Option) 


Beim Scanner-Verfahren wird jedes 
übertragene Byte als Information 
einer Spur bewertet. N-Bytes enthal- 
ten die Information einer ganzen 
Spur. Das {n + 1)te und die nachfol- 
genden Bytes tragen die Information 
für die zweite Spur und so weiter. Im 
Drucker wird die Information für sie- 
ben Spuren gespeichert und gemein- 
sam ausgedruckt. 


Zusätze 

Eine hohe Flexibilität der Drucker- 
ausgabe wird durch eine große An- 
zahl von über die Schnittstelle steuer- 
baren Funktionen erreicht. Die ver- 
wendeten Steuerzeichen entsprechen 
ISO-, ECMA- und DIN-Empfeh- 
lungen. 
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REM Sun canrur 


11 REM*+ JANUAR 1985 


i 
Z REM * + 
3 REM # DRUCKER LIST* 
4 REM * + 
5.REM * (CC) BY * 
& REM # #* 
7’ REM * THOMAS * 
8 REM * * 
9 REM # ROSENTHAL % 
* 
%* 
* 


_Programme. 


DRUCKER LIST 


VC-20 Grundversion 


Das Programm "Drucker List“ ist ein 
Anwendungsprogramm für den VC- 
20 Grundversion und ermöglicht den 
Ausdruck eines Kassetteninhaltes auf 
Ihrem Drucker. Sie können sich also 
die Programmnamen und die Filelän- 


so CH="aerr DRUCKER — LIST ##8*": POKE36879,,111 


EEE EEE 





100 Tt=-" gen 


150 FRINTC$; "BEIBITTE LEGEN SIE DIE 


BERN 


Ein Anwendungsprogramm für den VC-20 


ge der einzelnen Programme und Da- 
teien auf dem Drucker anzeigen las- 
sen. Wir fanden diese Version eines 
Anwendungsprogrammes für einen 
VC-20 ganz interessant. 





ZU PRUEFENDE KASSETTE EIN. BE":FRINT 


200 FORI=OTO21:PRINT’ W";:NEXT:SFRINT"G {C) THOMAS ROSENTHAL m"; 
250 FORI=SOTDZI:PRINT"N M";=:NEXT:FRINT"S": TF: POKE197B,0:WAITI9B,1:FRINTCF:GOTOSO 


Ö:FRINTCH 


300 PRINT"BBITTE FLAY DRUECKENDI]": FORI=OTDBO: NEXT 
>50 FRINT"BBITTE WPLAYB DRUECKENID]" = FORI=O9T080: NEXT: IF (PEEK (37151) ANDA4) =64 THEN 


300% 


400 PRINTTAB IF) "BRRRISSWIELEN DANK": SY543407 
450 I=0: FORY=BFSTD849: NS=NFHCHRE Ü(FPEEK(Y) I rNEXT 


499 OPENS,&A 


500 FRINTES; "WPROGRAMM NAME 3": PRINT "RH"NE "Re"; 
550 Z=1PEEK (831) + (PEEK (832) #256) ) - (FEEK (8297) + (PEEK (820) #756) ) 
600 FRINT"W";Z;5" BYTES LANGER" : 
6253 PRINT#3,CHRF(15)3 75" BYTES LANG &% PROSRAMM NAME ="3N&sPRINT#ES:CLOSEZ,4 


&50 »:FRINTTE 
860 FOKEIFB,0:WAITI1FS,1 
470 N$="":60T0300 


1000 %# 


IN ZEILE 1090 Z29#C= UND + DRUECKEN 


1010 * DANN SPACE "TASTE' SPACE UND S0ö* C= UND + 


>» 
= 
G 
„on de 


1050 WENN DAS FROGRAMM BURCHLAUFEN SOLL 
1060 DHNE ANZUHALTEN KANN ZEILE 640 RAUS 


Yriı 
ei 
Sl 
e] 

u" BE 


i070 ; 





FLOWERS Il 


Grundversionsprogramm für VC-20 . 


Nachdem wir in der Ausgabe 5 be- 
reits das Programm FLOWERS ver- 
öffentlicht haben, erscheint nun die 
zweite Variante dieses Spieles. 

Das Programm besteht aus 2 Teilen: 
Im ersten Teil werden die Sonderzei- 
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chen gelesen und der Spielaufbau 
erklärt. Teil 2 beinhaltet das eigentli- 
che Spiel. 

Im Gegensatz zum ersten Spiel sind 
Sie nun als Gärtner in einer wunder- 
schönen Parkanlage tätig. Sie müs- 





GSompuhe mi 











sen die Blumen dieser Parkanlage 
hegen und pflegen. D. h., am linken 
unteren Bildschirmrand steht ein gro- 
Bes Gefäß, in dem Blumensamen 
und Wasser gelagert wird. Diese Sa- 
menkörner müssen Sie aus dem Ge- 
fäB holen und aussäen. Damit aber 
die Blumen auch aufgehen und nicht 
austrocknen, müssen diese ständig 
begossen werden. 


| Wollen Sie also zunächst Samenkör- 


ner aus dem Gefäß holen, drücken 
Sie den Joystick nach oben. Wollen 
Sie Wasser aufnehmen, drücken Sie 
den Joystick nach unten. Sie können 
aber. nur dann Wasser aufnehmen, 
wenn Sie weniger als 2 Samenkörner 
haberf und nur dann Samen holen, 
wenn Sie weniger als 51 Einheiten 
Wasser haben. Gießen und säen 
können Sie durch Druck auf die Feu- 
ertaste, Jetzt haben die Blumen die 
Möglichkeit zu wachsen. Nach 30 
Sekunden Spielzeit kann der Gärtner 








programme 


Teil 1: ee Een ® 
Fe schützen. Je nach Menge und Größe der Blumen erhält # 
0 REMIHRHOHSERHERAHE SEIEN 1 der Gärtner eine Anzahl von Punkten und erreicht die 1 
er ! nächste Spielrunde. Hat der Gärtner zu wenig oder zu - 
3 REM& UNTERHALT %* g kleine Blumen gepflückt, ist das Spiel beendet, N 
4 REM& * Ükı munEU ic NE VER GEN WON BERG WE "EEE EN BEE FE ER BE EN FE FED 
5 REM#* 3550 MARBURG * 
& REM#* * 
REMIS 
10 REM 


20 REM SONDERZEICHEN 

30 FORT=1T0216:READA:POKE7167+T ,ArNEXTT 
40 REM MAENNCHEN 1... 

50 DATA7,15,14,12,12,4,3,12 

60 DATA128,192,64,64,64,128,0,192 

70 DATA16,19,20,19,1&,1&,31,1& 

80 DATA32,252,12,252,32,32,224,32 

90 DATALA,9,9,9,9,7,15,15 

100 DATA3S2,32,32,32,32,32,224 ,240 






Yariahlen 






120 DATAS2,253,14,252,44 44,224 ,32 = Was „örmer 
130 REM. . „LAUFEND = 69 

140 DATA16,9,51,53,57,33,1,1 Ang Ö) = Chlefe 
150 REM MAENNCHEN 24... . Männchen, 
150 DATA1,3,2,2,2,1,0,3 T, 


170 DATA224,240,112,48,48,32,192,48 
150 DATA4,63,48,63,4,4,7,4 
150 DATAB,200,40,200,8,8,248,8 







200 DATA4,4,4,4,4,4,7,15. 08,55 Linie 

210 DATAB,144,1944,144,144,144 240,240 Bu Löschstrin 

220 REM...MIT GIESSK. Kt" Punkte 9 

230 DATA4,191,112,63,52,52,7,4 N” Highse, 

235 REM... LAUFEND = Nam ore 

240 DATAB,144,204,172,156,132,128,128 halter ME des Highs 
245 DATAO,0,0,0,0,0,0,0 ZE ; Core 
380 REM GEFAESS Q ER Zeitstring 






390 DATA7,8,16,16,16,16,24,22 

400 DATA224,16,16,8,9,8,24,104 

410 DATA17,16,16,16,16,24,12,7 

420 DATA136,8,8,8,8,24,48,224 

430 REM BLUME 1 

440 DATA48,76,131,129,65,65,35,23 

450 DATA12,50,193,129,130,130,1964,232 
460 DATA23,35,65,65,129,131,76,48 
470 DATAZ32,196,130,130,129,193,50,12 
480 REM STIEL 

490 DATA1,17,29,15,7,1,1,1 

500 DATA129,128,129,136,184,240,224,128 
505 A$t1)="OARBRIBCHBEDE " : AS (2) =" CARREBCTEIBE " : 4 ME REBIK >" 
520 TELMISUCHSIEHEHC HEHE IE IE I" ETELZISTELL) 

525 T${Z2)="C><>£ FLOWERS II >>" 

530 PRINT"L":A=36875: POKEA+3, 15: POKEA+4 ,27: POKEA-6,255:R=50 

540 FORT=1T020 

541 PRINT"S@"TAB(T-L)AS (2) "El" :POKEA, 200: FORZ=1TOR+50:NEXTZ 

542 FORL=1T03:PRINT"@"TABCT-13MIDFLCTS(L) ,T,1) 2NEXTL 

543 PRINT"ER"TAB<(TIAS CI) SPOKEA,O: FORZ=ITORSNEXTZ,T 

545 PRINT"EE"TAB{ZO)L$ 

550 POKEA-& , 240: PRINT "LE": FORT=1TO3: PRINT"LI"TECTI "CH" NEXTT 


afiante zum Absinken 






550 T$(0})=" LIEBER SPIELER! " 

570 T#t1)=" DU BIST EIN GÄERTNER!" 

SsB9 T${Z2)3="D DU MUSST BLUMEN SAEEN UND OFT GIESSEN „WEIL ES HEISS IST.":D- 
3 

570 T#5{3)=" WENN DUsAM ABEND NICHT GENUG DDER ZU KLEINE BLUMEN HAST, " 


395 C$=" MUSST BU VERHUNGERN,. Hı T$(H=T$ I) +C$ 
&00 FORS=OTAD: AF=TF IS) 
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programme 


&05 FORG=ITOLEN {AF) 


&1 


& PRINTMIDStAF,G,1)3:FORY=1TD3O: NEXTY:NEXTG:FRINTSNEXTS 


&20 PRINT" WEITER: KTASTE" 

&25 GETA$: IFAg=""THENS2S 

630 PRINT"LIS" 

&40 T$(0)=" AM BRUNNEN KANNST DU WASSER,INDEM DU DEN JOYSTICK NACH UNTEN" 
850 T$(1}=" DRUECKST UND SAMEN- KOERNER,INDEM DU DEN JOYSTICK NACH DBEN * 
660 TF(2)=" DRUECKST,HOLEN.SAEEN, BZW. GIESSEN,KANNST DU MIT FEUER." 

670 TFI3}=" BEWEGEN KANNST DU DICH„INDEM DU DEN JOYSTICK RECHTS BZW." 


&8 


G T#t4)=" LINKS BRUECKST. ":D>-4 


685 FORS=OTOB: AF=TE(S) 
75 FORG=1TOLENAF) 
7009 FRINTMIDF (AF,5, 1) 3 : FORY=1T030: NEXTY: NEXTG: PRINT: NEXTS 


71 


0 PRINT" WEITER: BETASTE" 


720 GETAF: IFAF=""THEN?20 
730 PRINT"WICH LADE JETZT TEIL 11":POKE631,131:POKEIFB,1 


Teil 2: 

[*] 7=35875; POKEZ+3, 10: P=37151: POKES& „28: POKES2,28 

1 DIMHE (19) 

2 HE) SE" : FORT=1 TO1BE HF CPI =HFET-1) HR" Ss NEXTT 

3 ED AREBCEDE " : A CI =" BERERIBFEBEDE" : A (3) = BEATEIBCHEEIGE " 
4 At) ="EHIEBRIKEERRM "A (69 =" HI BTIKELDO" : GF="OREEIIST" 

5 BE="ZUVEGERX":5$="IVZ":LOS="d BEI EB " 

2 FOKEZ-6, 240: ZE=30: 06=5: DB=5 


10 
*+ 


15 


POKEZ+4,B: PRINT "IHRER U FLOWERS IE HEBEN 
ee" ; 


PRINT"ERISHIGHSCDRE: "HI 


i& PRINT"ERISVON: "N$ 


17 
=1 
18 
19 
25 
2& 
50 
s1ı 
55 
50 
. 80 
85 
70 
93 
95 
9& 
97 


a a a KEEREHKERERTRIIHTTTR FEN" ı OD 
Q0:S5P=1 

P$="BPRESS FIRE TO START " 

PRINTHS$ (9) "E"P$: POKEZ „200: GOSUB2S: PRINTHF (9) P$: FPOKEZ , 0: 5054825: G60T019 
IF- (PEEK (PP) ANDSZ) =0) =1 THENPOKEZ „0: 5OTOSO 

RETURN 

TIF="090000" 1: POKEZ+5 „259: Ls="g TIME 

POKEZ+4A, 27: PRINT"KEEPUNKTEE "Plis :PRINT"ESAMEN: © WASSER: 6":PRINTL$: I=18 
PRINTH$(1B) 68: PRINTHF (IS) LF 

PRINTH#{LTITABCTIAF CH) 

IFVAL (TIS) "TZETHENZSO 

IF- ({PEEKIFIANDIA) =0) =1 THEN1SO 
POKEP+3,127: IF- t {PEEK{P+13 ANDL2ZB)I=D) =1THENLAO 

POKEP+3,255 

IF-1tPEEK (P}I AND2) =0) =1 THENI170 

IF-((PEEK IP) ANDSI =0)=1THEN17S 

IF-ttPEEK (P) AND32)=0) =1 THEN1BO 


120 K=Kri: IFK=OTHENK=0: GOT0122 


12 


1 GOTO130 


122 L=L+1: IFL>=10THENL=0O 
125 G0TD21& 
i30 GDTDSO 


15 
15 


0 IFiI=2THEN13O 
1 POKEZ, 170: PRINTHS (17) TAB(LILOS 


152 I=I- 1: PRINTHE(17ITABCLI AS (6) EPRINTHSUITITABCDI LOS I=I-1: PRINTHECLTITABCHIASC 


4) 


153 POKEZ ,0:50T0120 


i&aß IFI=18THEN120 


1& 


1 POKEZ „170: PRINTH$ (17) TABCIYLO$ 


152 I=1+1:PRINTH&E(17} TAB(TIAF CH) :PRINTHEF (LFI TABCDILOF: I=I+1: FRINTH$ (1 I TABLIDIAFL 


1} 


143 FOKEZ,0:G0T0120 
170 IFI<>2D0RW>SOORSE=FTHEN120 
172 POKEZ+2,130:5=5+1: PRINT "WERE" TAB (6) S: POKEZ+2,0:G0T0120 


17 


S EFI<>ZORW>9EORS>ITHENL2O 


17& FOKEZ+1 „250: W=W+3: WF=S5STRE (WI +" "SPRINT"EEET" TAB (18) WE: POKEZ+1 ,0:B0T0120 
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programme 


180 M=1/2: IFH{M)=1THEN120 
ıi91 
i82 
193 
170 


IFH (#) =SOANDS=OTHENI20 
IFH IM) < >OANDW=OTHENLZ2O 
iFH(M}<>OTHENIYFT7 


IFH (M) =SOANDS=OANDNW< >OTHENS7O 


195 POKEZ „240: PRINTHF (143 TABLII BSH IM) =14:8=5- 1: PRINT"EIEE" TAB (235: POKEZ „0: 60701 


50 
197 PDKEZ „245: W=W-3 


200 PRINTER" TAB(IEDW"E "SPRINTAE CHEM +1) TABCHISSEHIMI SH (MI -1 
210 PRINTH$CH(MIITABCDI BF: PRINTHF (17) TABCTIAF (2) sPOKEZ „0: B0T0120 


216 
zı8 
0130 


IFH IL) =ÖOTHENI13O0 


220 PRINTH$S{HILIYTABSL#2I "5 


255 PRINTHF(ITITABCDIAFLID 
258 IFH{1/2)=S0OTHENFORG=1TO100: NEXTG: GDOTOZBS 
2406 FORT=H{1/2) TO14:POKEZ ‚200: PRINTH$ (T) TAB{II "G 


XTA:POKEZ ,O 


IFH (L)=14THENPOKEZ+2,200: :PRINTHELLAITABILAZ2I"G MER "aHiL)=0:POKEZ+2,0:60T 


"sHtLI=HILI+1EPRINTHSCHILII TAB (L#Z2I B$1 G60TD139 
250 POKEZ+3, 15: PRINTH$ 117) TAB{DILO$: POKEZ „240: FORT=1T0500: NEXTT+FOKEZ ,0: I=2 


270 GE=SGE+H1:PU=SPU+H1:PRINT'BEE"TAB(TIPU 
280 NEXTTsSO=0H1: PRINTHFLIS TARB(D 'S Ba" 
283 PRINTHFITITABLDILOF: I=I+2: IFI=S30THEN29O 


285 G0T0255 

296 IFO=1THEN29S 
271 D=g-1 

293 GOTN3053 

275 IFOS=STHENSOG 
295 06=-06+1 

277 50T0305 

300 IFZE=15THENSSO 
301 ZE=ZE-5 

305 


IFGE/F<OGS OR D<SSTHENFSO 


310 SP=5P+1:PU=SFUHINT {0/2+.53%#5P 


320 GOSUB380: 507050 


3530 PRINTH#F (8) TAB (5) "GAME DVER":FORT=1T030009: NEXTT 
373 GSOSUBF&0: IFPLUCHTTHENPU=0: SOTDF 

355 POKEZ-4,240: INFUT"EDEIN NAME"4NF=HI=SPU: BÜOSUBS&0: PU=9: GOTOYF 
380 FORT=1TO9:H CT) =0:NEXTT: D=0: GE=0: W=0: 5=0: K=0: L=0: RETURN 

370 W=W-3: PRINT" EEIZE" TABCLBIW"N ":GOTD120 


DINO-EGGS 


für VC-20-Grundversion mit 


"sPRINTTABtII BF: FORA=1TO100:NE 


Joystick 





Dieses Spiel ist eine gutgelungene 
Variante des bekannten C-64-Spiels 
mit gleichem Namen. Es hat einen 
eigenen Grafiksatz und wird durch 
eine Maschinensprachroutine ziem- 
lich schnell. 

Zuerst aber einmal zum harten Teil: 
das Abtippen. Das ‚Programm be- 
steht aus 3 Teilen: 


1} Maschinensprachevorpro- 
gramm 

2) Grafikprogramm und 

3) Hauptprogramm. 


Die Programmteile müssen in der 
genannten Reihenfolge eingegeben 
und gesaved werden! Dabei ist dar- 
auf zu achten, daß bei der Eingabe 
der Datas im ersten Programm keine 
Fehler passieren, da es sonsi zum 
Absturz kommt! 

Um zu spielen, müssen Sie zuerst 
das erste Vorprogramm mit „Shift“ + 
„Run/Stop" laden. Erscheint das Ti- 
telbild, müssen Sie eine Taste drük- 
ken, worauf der VC-20 die beiden 
anderen Programme automatisch 


nachlädt. (Während des Ladevorgan- 


Coemsupe mip 


ges nie die Datasette stoppen!) 

Nachdem das Hauptprogramm gela- 
den wurde, wird der Bildschirm auf- 
gebaut. Drücken Sie nun die Stop- 


. Taste der Datasette. Auf Ihrem Bild- 


schirm sehen Sie eine große Höhle 
mit 6 Etagen, die untereinander mit 


.„Leitern“ verbunden sind. An den 


Decken der Höhle verteilt hängen 16 
Doppel-Eier und auf den 5 unteren 
Etagen befinden sich verschiedene 
Tierarten (Schlangen, Spinnen, 
Mini-Saurier und Fiedermäuse). In 
der rechten oberen Ecke der Höhle 
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programme 


steht Ihr Mensch in dem „Zeittor“. 
Sie kommen aus der Zukunft und 
haben von einer Forschergruppe den 
Auftrag bekommen, mittels einer Zeit- 
maschine in die Urzeit zu reisen, um 
möglichst viele Eier der Dinosaurier, 

die bekanntlich vor 65 Mill. Jahren 
ausgestorben sind, mitzubringen. Da die 
Wissenschaftler nicht gerade sehr mutig 
sind und außerdem kaum noch Geld hat- 
ten, sind sie angestelit worden und bekom- 

men für jedes nach Hause gebrachte Ei 5 $. 
Bewegen Sie nun Ihren Menschen mit dem 
Joystick und sammeln Sie die Saurier-Eier, in- 
dem Sie entweder springen (Feusrknopf) oder, 
wenn Sie unter einem Ei stehen, den Joystick nach 
oben bewegen. Um ein Loch zu überspringen, müssen 
Sie ebenfalls den Feuerknopf drücken. Das Ungeziefer, 

das durch die Gegend kriecht, dürfen Sie nicht berühren; 

Sie müssen fliegen bzw. darüberspringen, sonst verlieren 
Sie Ihren Menschen (von denen es nur 3 gibt). 

Wenn Sie 3 Doppel-Eier genommen haben (auf die Anzeige 
in der rechten oberen Bildschirmecke achten), müssen Sie zum 
Ausgangspunkt, dem Zeittor, zurück. Drücken Sie nun den 
Feuerknopf, dann reisen Sie in die Zukunft, bekommen Ihr Geld 
{Anzeige „Score“) und kommen wieder zurück. Falls Sie gerade das 
letzte Ei weggebracht haben soliten, fängt eine neue Runde an und in 
jeder zweiten Runde beginnt ein neuer Level mit mehr Tieren und 
höherer Geschwindigkeit. 

Neben all den änderen Schwierigkeiten müssen Sie auch gegen die Zeit (Anzeige in der linken oberen Ecke) kämpfen. 
Sie haben ca, 5 Minuten pro Runde, wobei die Zeit in jeder Runde kürzer wird. 

Haben Sie alle Menschen verloren oder die Zeit überschritten, endet das Spiel und Sie werden gefragt, ob Sie noch ein- 
mal spielen wollen. 

Die Anzeige „LI* zeigt an, wieviel Menschen noch da sind, die Anzeige „LE“ steht für Level. 


VARIABLENLISTE für das Hauptprogramm! 


Anzahl der in dieser Runde Menschen OT: Position des eigenen 
abgeschickten Eier T,Y: Schleifenvariablen Menschen 

Sprungweite (9 = kein Q: Zufallszahl (Verteilung der PE/PF: Zeichen/Farbe unter Men- 
Sprung) Eier) schen 

Sturz (9 = kein Sturz) Li: Anzahl der Menschen SC: Punkte (Anzahl der Eier- 
Aussehen/Richtung des LE: Spiellevel paare x 10) | 
Menschen co: dient zur Farbadressen- EI: Anzahl der Eier, die man 
(vorherige) Richtung des berechnung gesammelt hat 






Manche der gelisteten Variablen werden aus Speicherplatzgründen für verschiedene Zwecke gebraucht! 
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programme. 
Teil 1: 


5 FRINT' VIEERREEGIDONE STB SWITCH OFF TAFEI":FORI=S1T02000: NEXT 
10 FOKE35877,10: ER RSIFUE 36578,15:F0EKEE5S,Z7: POEESZ „27 
ii FRINT'"EI® : EBc 

12 FRINT"E 
13 FRINT'EERRERT 

14 PRINT BRREIMFRRB / Er ne 
15 FRINT'BRRPPRR 14°; wi e; 

i1& PRINT'BRRRERS. Bl Wr a Eu" 
17 FRINT'ERBRESRET Ei 39" 

i8 PRINT er m 

17 PRINT nn 
=0 FRINT'BS FROSSOFT FRESENTS " 

= LEN an > Ein EEE" 






DM WRITTEN 1964 in Mi 





24 FRINT'E BY: WWDOERG HANSEN | = Te Er) HIT KEY! es 


=3 FOKE39705,4: FOKEBISS „160:L=1: MUS") 3/3 ZUHRH 77 IH" 

zB FA=Fiari: IFFA>7THENFA= i 

=97 L=L+1:FDEEI6SB7&, ASC (MID$ (MUS, 1L,133+174: FORE3F5874 ,„FEEK 13689785) 3 IFL+1 > LENSMUFITH 
ENL=1 

30 Eon II UNE TERU ren 


31 PRINT" 1,  rrrm 
32 PRINT" I IINI I— ® Ban 
s3 FRINT" LI 1% Liil KIIT" 


34 EN A 0: IFL=1THENFORI=1T0500: NEXT 
35 IFPEEK (197) =6A4THENZB 
60 FORI=4912T07349: READDA: POKET „DA: NEXT 
70 PRINT'G KEIDIND-EGBS": PRINT ERRRGEG DON'T STOP '8 FROGRANM LO 
ADING" 
75 LOAD 
700 REM 
701 DATA160,18,185,206,31,201,56,240,15,201,57,240,26,136,192,1,240,3,24,144,237 
„24 
702 DATA144,30,169,32,153,206,31,169,57,200,153,206,31,156,24,144,2350,169,32 
904 DATALSS,206,31,169,56,200,153,206,51, 136,24, 144,215, 172,225,31,201,56,240,3, 
24 
90& DATA144,10,169,32,141,225,31,169,57,141,208,31 
910 REM 
gil DATA160,14,185,13,31,201,50,240,15,201,51,240, 76,136, 192,1,240,3,24,144,237, 
24 
F12 DATA144,30,169,32,153,13,31,169,51,200,153,13,31,136,24,144,230,159,32 
914 DATA1S3,13,31,169,50,200,153,13,31,136,24,144,215,173,28,21,201,50,240,3,24 
716 DATA144,10,169,32,141,28,31,169,51,141,15,31 
9720 REM 
921 DATA160,2,185,1597,31,201,54,240,15,201 ,55,240,26,200,192,135,240,3,24,144,237 
„24 
722 DATA144,30,169,32,153,127,31,169,55,156,153,137,31,200,24,144,230,169,32 
324 DATA1S3,137,31,169,54,136,1593, 139,31 ,200,24,144,215,172,140,31,201,54,240,3, 
24 
9265 DATA144,10,167,32,141,140,31,169,55,141,151,31 
930 REM 
931 DATA180,2,185,76,31,201,52,240,15,201,53,240,25,200,192,17,240,3,24,144 ,237, 
24 
732 DATA144,30,169,32,153,76,31,169,53,136,153,76,21,200,24,144,250,167, 
34 DATA1S3,76,31,169,52,136,153,76,31,200,24, a no 
756 DATA144,10,169,32,141,77,31,169,53,141,92,31 
940 REM 
341 DATA140,2,1895,198,50,201,52,240,15,201,53,240,26,200,192,13,240,3,24,144,237 
„24 
942 DATA144,50,169,32,153,198,30,169,53,136,153,198,50,200,24,144,220,1569,32 
944 DATA153,198,30,169,52,136,153,198,30,200,24,144,215,173,197,20,201,52,240,5, 
24 
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Pa 
770 
772 
974 
PL*; 

7975 


DATA144,10,169,32,141,197,20,1697,53,141,210,30 


DATA173,31, 145,201,126,240,43,201,122,208,9,167,37,141,751,0,169,22,96 
DATA201,110,208,8,169,34,141,251, 0,169 „43,96, 201,118,205,8, 169,33,141,251,0 
DATA169,66,96,201, 54,209,2,189, 55,96, 172,22,145,201,119,208,8,169,25,141,251 


DATA149 ,45,96,157,44,96 





Teil 2: 









10 FOKESAB78,16:F0OKE36877, 10: FOEES2, 27: FOKESS „27 

15 FRINT"IE3 Er ES Bi" 

20 FRINT'"EEREER x RL 

21 FRINT" F, 

23 PRINT" & EWALTL 
24 PRINT" RE 
25 FRINT" IR 

50 FA=SFA+1: IEFA>ISTHENFA=1 

31 FOKE&4&,FA: PRINTER T | I In BI ae 

32 FRINT" | tim! E En u a 

23 PRINT" [111% L Li 14 _IOD":S0T080 

70 FORI=7% :BTO7679: READDA:FOKEI „DA 

75 T=T+l: IFT=7THENT=G: 501030 

80 NEXTI 

100 ISPRÜGRAM Bere LOADINGLEEEEE;} 


110 POKEIFB, 1: POKE6SI „131: PRINT" BLLDD" :END 





202 DATA24,28,24,24,24,24,24, 60,24,24,24,24,24,24,24,50 


204 
‚208 
208 
z109 
212 
214 
21 
18 


kr 
A 


222 
224 
226 
228 
230 
ee = | 
Zar 
224 
25 


238 


DATAZB, 126, 121,247,171,222,127,58,24,60,24,126,60,255,127,58 

DATAO „o, Ö, 1, 1,3,7,143,0, 192,721 ,255, 255,255, 255,255 
DATAO,128,192,224,240,240,228,284, 0,0,0,0,0,0,0,8 
DATA28,28,72,62,29,28,20,20,56,24,8,28,122,24,28,52 
DATAZS,24,16,56,94,24,56,44 ,255,225,141,4,0,170,170,170 
DATA&O,0,60,0,50,0,80,0,0,0,5,6,8,15,32,0 

DATA255 ‚255,255 ,255, 225, 25, 255,255, 205, 2559,254,252,92 
DATA=S5,255, 255,255, 255, 255,247 ,52,221,253,259,255,259, 2559, 255,255 
DATAIB,17%7 „a1 ,255,255,295, 295, 255,173, 255,253,255,253,255, 120,06 
DATABS, 254,255, 259,233, 255,27,0,255,127,255,63,63,127,255,62 
DATAZT, 191,255,159,255,249,255,159,0,6,0,96,0,8,0.96 
DATA24,60,60,24,60,60,24,0.127.66,26.24,80,90.129.66 
DATAO,66,165,24,60,90,129,127,0,0,0,0,200,2135,34,0 
DATAO,0,0,0,224,212,8,0,0,76,224,48,120,55,80,107 

DATRG, 78,224,408,120,61,114,72,0,368,53,1264,16,8,0,0 
DATAC,4,5,126,24,16,0,0,0,0,0,0,0,0,2,203 

DATAO,0,0,0,0,32,98,247 ,0,0,8,28,60,20,8,0 
DATA4,168,10,88,12,36,18,7,130,8,34,4,144,10,64,36,2,583,0,8,0,2, 32,1 





Tei 
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5 REM FROG 

20 FOKESE ‚27: POKES2 ,27: POKE36989 ‚255 

25 FOKE780,0: POKERS1,33 

30 LI=3:LE=1:00=30720 

40 0T=7B81:FE=230:FF= 

90 FOKES4879 ,258: POKES7154, 127: POKES5978, 15 


100 
105 
107 
116 
115 
120 
123 
136 


mE 
Be 
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FRINT"LZERPIES**DIND-EGE5##3 "s:E=0 

FRINT"SBSSCORE 300009 LI 205 LE 002", :60SUB1000: FOKE7717, LI+17& 
FOKE7722, INT {LE7/10) +17: FOKE7723 ,LE- INT{LE/10)%*10+175 
FRINTTERERREL TEL NSADOND. D" 

PFRINT'SIT"_ssYı YZa ZYZY=sZYI_Ya "5 

FRINT TER OOOIOLCH I OCT nf en EEE a I A 5 
FRINTT/SEORHOLI, 7,770 OO 7,7) Bi - "5 

FRINT"-,„,„, VEREREOCD au 97 Bl zal. Fr 

FRINT" /BRENOLID- +, 377 7 0. ER." 
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140 
145 
150 
180 
170 
175 
150 
185 


170 


195 
17& 
197 
1975 
1977 
00 
205 
2065 
207 
=10 
zıı 
zi2 
213 
215 
zZzZ0 


ae De 
De 


240 
zo0 
293 
1 

zI6 
207 
297 
S00 
303 
>04 
305 
310 
340 
347 
3530 
351 
335 


365 


PRINT"--,- u OT ROOT , , "5 
FRINT"/EMORBOLIT- „-, 77 717 ot a "5 
FRINT OHR ee "5 FOKEBL185, 39: FOKES 38905,& 


ON(LE+1) /260T0195,190,185,180,175,170 

FOKEB148,57 

POKEBOS4 „54 

POKE7F60 ,50 

FOKE7887 ,52 

POKEB156,57:POKEB076,53 

FOKE7880 ‚53: POKEBO19 52: FOKE7763,51: FOREBO81 „55: FOKES147,55 

FORT=1T016 
B=INT{RND(1)#371)+7748: IFPEEE (0) <A400RFEEE (B) >45ORPEEK (0+22) 2 >32THEN197 
FOKEO+22 ‚49: POKEO+22+C0D,7:NEXTT 

TI$=" 000000" 

SYSAF12 

IFPEEK (01T) »350RPEEK (OT) =32THENZOZ 
IFSP=STHENFOKEOT+CO ,FF:FOKEOT ,PE:OT=0T-Z2#+RI:FE=FEER OT) 

Z=PEEK (251) 2 IFSP>OTHENSP=SP-1:A=RI: 50T0215 

A=PEEK (780) -44: IFXA>OTHENA=O 

IFA=11 THENAOO 

IFA=OTHENZ2IS 

IFPEEK (OT+A) =32ANDA=-ZZANDPFEI >47 THEN275 

IFSPi>2 THENPOKEDT , PE:POKEOT+CO,PF:OT=0T+A: F2=PE: FE=PEEK (OT) SFF=SPEEK (DT+CO) 
IFFE=S2ORPE=47ORPE=ABORPE=37ORPE=2Z0THENZIO 

IFPE -ABANDPE<S7THENZOS 

OT=0T-Ar PE=PZ 

FÜKEOT+CO „O0: POKEDT ,Z: POKE34877 „200: FOKES6877 ‚U: RI=A 

IFFEEE (0T+22) =Z2ANDSF=OTHENPOKEOT „32: POKEOT+CO, 1: 0T=0T+22: FOKEOT+CU , 0: XA=XAt 


IFAAFOTHENFOREDT „ Z:FODKE38877 „235+X A: FOKEIF8575,2 

IFFEER COT+22) 2 FFZTHENPOKES4877 „0: XA=0: POKE34875,15 
FRINT"ER"RIGHTSCTIE 332 IFVALCTIE? >410-LEX LOTHENAA=2I5: GOTDEOO 
FORT=1TD9O-LE#1G: NEXT: en 

IFFE=47THENSIO 

FORY=1T010: POKE35877 , 234: FORT=1T020: NEXT: FOKE34877 „200: FORT=1T020: NEXT: NEXT 
L_I=L_LI-1:FOEE7717,1L1r178: FORE 36877 ,0: IFLI=OTHENTOO 

E1=0: 5P=05 FORT=7598T07701: FDEET „32: NEXT 

FOKREDT+C0,1:0T=78351: FE=230: ERS UF ENTGS REKEN TEENS 

GOTO2ZOO 

IFEI=3THENGT=DT+22: FE=32: GOT02970 

FORT=1T010: FÜREZ5874 „234: FOKE34875 „200: NEXT: POEFEF5875,0 
FOKEOT,Z:FOKEOT+CO „O: FORT=1TD100: NEXT:EI=EI+isE=E+i: FPE=32 
FOKE7&PB+EI ‚49: IFEI=SFTHENFORES5875 , 234: FORT=1T0200: NEXT FOKES89375,0 





397 FF=1l:XA=1:607T0200 
450 IFFE=S32ANDABSART)=1THENSF=3:G0TO297 
401 IFFEZPZZOTHENZ2IF 
4025 GOSUB470: 5C=5C+10O#EI: SOSUB1000: FORT=1TDF00: NEXT : SGSEUE4I0: FOKEDOT „32: FOKEOT+CD 
re) 

’ 

410 FORT=7475107701: FOKET „32: NEXT+EI=0: PF=3 
420 IFE=15THENLE=LE+H1: FOHETSB76 „234: FOEEZAB73,,0:50T040 
450 FOEEF&B78,15: 6070209 
470 FORESZAB7E, 2: A=0 
472 FORT=ITDS1: FOKEA48,,T: FRINT'EEREEERIE SIE" 
473 A=Ari: IFA=7THENSYSAII2, A=0 
475 FOFEI4B73, (RND{1)*120) 128: NEXT: FDEEI6B874,0 
477 RETURN 
790 FOEEOT+CO, 2: FORT=40T063: POKEOT „T: FORE34B77 ,T#3: FORA=1TDZOG: NEXT: NEXT; FORESAS 
77,0 

800 FRINT"IIRBLRRRRBGAME DVER 1": IFXA=25SSTHENFRINT"EESYDUR TIME WAS DVER 
BO1l PRINTERZRIYOUR SCORE: "YSOCEFRINTESEFLAY AGAIN?" 
805 GETAT: IFAF=""THENGOS 
808 IFAF="J"THENRUN 
808 FORES7154,2597: FDEE36869 „240: END 


i000 5E=5C+100009:5C$=STR# (5C) 
1001 FORT=4707: POKE7704+T ,VALMIDF ISCH, T,1)3+1753 NEXT: 5C=50-100005 
1019 RETURN 
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uıun un _ report 
Commodore legt eigene Sachbuchreihe 


auf Programmtlips, Listings und Graphik 


Unentbehrlich für Anfänger und Fortgeschrittene 


Die von den Computerherstellern beim Kauf eines Rechners mitgelieferten Bedienungshandbücher sind in der Regel 
nicht mehr als Gebrauchsanweisungen für die Hardware. Im Grunde können und sollen sie auch nicht mehr sein. Der in- 
teressierte Anwender wird sich also früher oder später auf dem Buchmarkt umsehen. Literatur gibt es zu allem und zu je- 
dem Problem, doch allzuoft ist das Richtige nur schwer zu finden. Vielfach muß man nach wenigen Seiten feststellen, 
daß das Buch den eigenen Erwartungen nicht entspricht. So liegt für einen Computerhersteller nahe, selbst verläßliche 
Literatur anzubieten, die haargenau auf die eigenen Rechner und deren Möglichkeiten zugeschnitten ist. 

Deshalb geht Commodore unter die Herausgeber von Computerliteratur. 





"MATHEMATIK 
MIT DEM. © ©: 
" COMMODORE 84 


Ein Leiden 





in seiner Sachbuchreihe bietet der führende Mikrocomputerhersteller für viele Probleme die Fachliteratur an. Die 
Sachbuchreihe wurde entwickelt, um Computer-Anwendern die fast unbegrenzten Möglichkeiten ihrer ‚Rechner 

. aufzuzeigen. Mit dem reichhaltigen Informationsangebot sind sie für Anfänger und Fortgeschrittene unentbehrlich. Die 
Sachbuchreihe, von der nach einem halben Jahr insgesamt 10 Bände lieferbar sind, wird ständig durch neue Exemplare 
erweitert. So sind noch einige vielversprechende Titel z. Z. in Vorbereitung. Geplant ist, daß der gesamte Homecompu- 
ter-Systembereich mit ausreichender Fach- und Spielliteratur ausgestattet wird. 
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programme 


| PIANO Commodore 16 


Geben Sie Ihr eigenes Klavierkonzert! 





Der Commodore 16 und dieses Prog- 
gramm ermöglichen Ihnen, in die 
Musikszene einzusteigen. Sie haben 
hier die Möglichkeit, eigene Kompo- 
sitionen auf einem Klavier zu spielen. 
Damit können Sie ihre musische 
Veranlagung mit Hilfe eines Compu- 
ters verwirklichen. 

Nach dem Start des Programms er- 
scheint das Titelbild und Sie drücken 
eine beliebige Taste. Nun erscheint 
die Bestimmung der einzelnen Okta- 


10 
zo 


ME 
Fe) 


GOSUB1000 
INPUT "LEREEIl. 


ven: 
1. Oktave Klangdauer? 2.B. 1 
2. Oktave Klangdauer? z.B. 1 
3. Oktave Stimme? z.B. 1 
4. Oktave Stimme? z.B. 1 
Bei den beiden ersten Bestimmungen 
können Sie die Klangdauer der ein- 
zelnen Oktaven festlegen. Hier kön- 
nen unterschiedliche Werte eingege- 
ben werden. Bei den beiden nächsten 
Bestimmungen legen Sie die Stim- 


UKTAVE KLANSDAUER ";L 


men fest. Hier müssen Sie darauf 
achten, daß Ihnen auf dem Gommo- 
dore 16 nur drei verschiedene Stim- 
men zur Verfügung stehen. 
Anschließend erscheint die Notenlei- 
ter auf dem Bildschirm, Stellen Sie 
nun den Lautstärkeregler auf die rich- 
tige Stufe ein und Sie können Ihre 
selbst komponierten Lieder spielen. 
Durch Druck auf die SPAGE-Taste 
können Sie das Programm wieder 
verlassen. 


30 
si 
32 
33 
35 
40 


100 
110 
120 
130 


INPUT"BEeBRi?. OKTAVE KLANSDAUER "s;K 
INFUT"BEREI .DKTAVE STIMME ";N 

IF N-3 THEN 30 

INPUT" BEEERIT. DETAVE STIMME "s+H 

IF H=>3 THEN 32 

REM DIE NOTENLEITERN UND NOTEN 
SRAPHICI „1 


CIRCLEi, 15,70, 4:FAINT1,15,70: DRAWI, 17,7070197,50 


CIRCLE1,15,150,4: PAINTI, 15,150: DRAW, 19, 1507019 ,130 
CHAR1,30,4," 1. OKTAVE" 

CHAR1,30,14, '2. OKTAVYE» 
FORY=42T082 STEP 10 

DRAWI „40, YTO250 ,Y:NEXTY 

FORK=122T0162 STEF1O 

DRAW1,40,XT0250 ,X:NEXTX 

CHAR1,13,3, "THE FIAND" 





140 CHARL,6,8,"CDEFGBGAHC tFıs By“ 
150 CHAR1,6,18,"CDEFGAHL tFIS BY" 
160 CHAR1,0,11,"TASTEE1 2 3AS 6 7B CR you 
170 CHAR1,0,21,"TASTEASDFGHUIK {V N 
180 CHAR1,15,23," ENDE : SPACE" 
225 VOLB 
230 BETKEYAS Bes 
240 IF AF="1"THEN 450 . f N 
= ng der Klangdauer H = Bestimmung der Stimme 2. 
250 IF A$="2"THEN 460 ne el: a 
280 IF A$="3"THEN 470 = Bestimmung der Klangdauer A$ = Belegung der Tasten 
270 IF AT="A"THEN 480 9. Oktave B$ = Belegung der Tasten zum 
280 IF Ag="S"THEN 4970 = Bestimmung der Stimme 1. Weiterführen des Programms 
2970 IF Af="4"THEN 500 
14 Gompnufs mip 8/85 


300 
S10 
220 
330 
>40 
So 
360 
>70 
350 
390 
00 


420 
430 
435 
440 
450 
460 
470 
480 
470 
SO0 
510 
520 
330 
540 
Ierhe7#) 
Sn 
E70 
=80 
590 
500 
610 
520 
630 

T 640 

i 1000 
1005 
1010 
1070 
1030 
1040 
1050 
1050 
1070 
10890 
1090 
1100 
1110 
1120 
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At="7"THEN 
AF="B"THEN 
AF= Li kt THEN 
A$="Y"THEN 
A$="A"THEN 
A&="S"THEN 
At="D"THEN 
A$="F"THEN 
Af="G"THEN 
AF="H"THEN 
A$="J"THEN 
At="K"THEN 
A$="Y"THEN 
Ag="N"THEN 
A&=" "THEN 
GOTO 230 
SOUNDN ,596,1:60T0230 
SDUNDN „643 ,1:G0T0230 
SOLNDN , 695,1: 6010230 
SOUNDN, 704,1L:50T0730 
SOUNDN , 739, L:60T0230 
SOUNDN, 770 ,1.:G0T0230 
SOUNDN , 778,1:50T02730 
SDUNDN,810,L:G0T0220 
SOUNDN,720,1:G60TO730 
SOUNDN , 780 ,1L:50T0730 
SOULNDH ,810,K: 607027 
SODUNDH 854 ,,K: BOTO230 
SOUNDH , 854 ,K: BOTO230 
SOUNDH, 864 ,K: G0TO230 
SOUNDH, 881 ,K:50T023 
SOUNDH, 897 ,K:G0T0230 
SOUNDH,F11,K:G0TO7TO 
SODUNDH, 717,K:G60T0230 
a 
SOUNDH, 905,K: 80107 
REM TITELBILD 


510 
52 
530, 
540 
550 
560 
570 
590 
590 
E00 
810 
620 
&30 
640 


programme ' 
Commodore 16 


von Hans Riedl und Franz Quinke 
Der Einsteiger-Computer 


mit Aufsteigerqualitäten 


GRAFHIC CLR=END 


Trotz ihrer großen Erfolge lassen die Mikrocomputer 
VC-20 und G-64 besonders im Bereich der Stan- 
dard-Basic-Version noch einige Wünsche offen. In 
diese Lücke wird der Commodore 16 stoßen. Ein 
vielseitig verwendbares Gerät, vor allem wegen sei- 
nes Superbasic mit Grafik. 

Auch beim Commodore 16 gilt das, was bei der 
Anschaffung eines Mikrocomputers eigentlich die 
Regel sein sollte: Jeder Käufer muß sich vorher 
ausreichend informieren. Nur so kann er beurteilen, 


ob das Gerät seinen Vorstellungen entspricht und - 


später auch optimal genutzt wird. Das neue Buch 
Commodore 16 mit 116 Seiten bietet dem Compu- 


| terkäufer ausreichende und vor allem verständliche 


Informationen über die richtige Computernutzung. 
Der Benutzer erfährt, weiche enormen Möglichkeiten 
auf den Gebieten Freizeit, Hobby, Fortbildung, Beruf 
und Geschäft im Commodore 16 stecken. Nutzer 
Sie die Möglichkeiten des C 16 von Anfang an. Eine 
Einführung für den Einsteiger und Anregungen und 


: Tips für den Anwender. 


Kiehi Verlag, Ludwigshafen, Preis 29,80 DM 


COLORO,1:COLOR1,2:COLOR4,1:5CNCLR 


ja HER IEN 1ER 3 


PRINT=PRINTSFRINT=FRINT=PRINT 
PRINT" Fe 

PRINT" FE 

PRINT" Be um 

PRINT" 8 = 

FRINT" rg IB 

FRINT" iu mn I 

PRINT" wm ; 
CHAR1,14,17,"tC) BY M. 


CHAR1,13,19,"EINE TASTE DRUECKEN! 


GETRKEY BE:RETURN 
END 


ii ır ii si k 


is S u IR u" 
E DE DE DE BE JE Ge: 
= üE GE UE Ga dm we 
Id = DB JE GE We 
BE DE SE BE GE Gm 
BE BE u2 Be JE v® 
Be GE um GE mi 
WEGHORST" 

*_% 
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programme 


Tank-Duell Commodore 64 


Ein Geschicklichkeitsspiel mit tonnenschweren 
_Kampfmaschinen 












Das Programm Tank-Duell ist ein 
Geschicklichkeitsspiel für zwei Per- 












Tell: ang onen nammAaLTaee sonen. Hier haben Sie die Möglich- 
10 PRINT T" Sn Zu ANDAST? A keit, zusammen mit einem Bekannten 
20 GETAR: FE ungen LH BOT Ihre Fähigkeiten als Panzerkomman- 
zo In Be dant unter Beweis zu stellen. Inner- 

0 AS, aa, 9: PT 2808 Zeoxe6s2, halb eines Labyrinths stehen sich 


Turt g: 
2 a 342 zırnEsst, ni zwei Panzer gegenüber, die durch 
= dauernden Beschuß die Schutzwän- 
de um sich herum zerstören und so- 
mit dem Gegner die Schutzmöglich- 
keiten nehmen. Aber Sie selbst müs- 
sen ebenfalls durch schnelle Reaktio- 
nen den gegnerischen  Schüssen 
ausweichen. Äußerste Vorsicht ist bei 
den Schutzmauern geboten. Eine 
Berührung mit diesen Mauern kann 
zu einem Problem führen. Ihr Panzer 
kann durch diese Berührung die Kon- 
trolle über das Fahrwerk verlieren und 
ist somit manövrierunfähig. Dadurch 
sind Sie dem Gegner natürlich hilflos _ 
für seine Attacken ausgeliefert. Bei 
einem Treffer durch den gegnerischen 
Panzer ist das Spiel sofort beendet 
und auf dem Bildschirm wird ange- 
zeigt, wer der Gewinner ist und zum 
Teil ?: Hauptmann befördert wird. Das 
; Spiel zeichnet sich durch große Ge- 
REM OHREN EN schwindigkeit und viel Action aus. 
el ee een. sid das oa ae 
REM ##* WRITTEN BY KLAUS DILLINGER %*#* den Befehl RUN und gesteuert wird 
REM BEREIT mit zwei Joysticks. 
REM * ANDTHER GAME FROM DILLINGER- + 
REM ERBE ERRR SHHHHHIHHHIHOHR Anmerkung: 
= * SOFT.GESCHRIEBEN VOM 02-04 4.%* Soll „TANK-DUELL“ von der Dis- 
FARM NENNT HH N HR NH NEN N } 
REM ***19785. Ali. RIGHTS RESERVED #*+ & u: en an Are 
REM BRENNER II NN HR ER " " 
REM #x#x%x%x COPYRIGHT 1995 sauna. „IAN K-DUELL*CHRS$(34) „8 
REM BHRRRHHRBBRISRHH HET stehen. Das Programm ist somit 
D=3:V=53248:P=54272: POKEV+32 ,0:POKEV+33,O:PRINT"LIS" | auch für die Diskettenbesitzer inter- 
PRINTTAB (129 "ETANK-ATTACK" essant, 
FRINTTAB {123 "gt" 
PRINT"IAGESTEUERT WIRD LEBER DIE BEIDEN JDY-E" ” 
FRINT"STICKS IN DEN BEIDEN PORTS. MAN KANN NUR" Viel Spaß! 
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100 
101 
102 
103 
104 
105 
104 
107 
105 
109 
111 
112 
113 


114 
115 
116 
117 
118 
117 
120 
290 
291 
292 
293 
2978 
soo 
301 
305 
30& 
397 
310 
si: 
Ssiz 
313 
314 
315 
517 
318 
519 
320 
321 
322 
325 
326 
327 
32B 
B90 
700 
9750 


programme_ 


PRINT"ZU ZWEIT SPIELEN. EIN SPIEL GEGEN DENN" 

PRINT"EOMPUTER IST NICHT MOEGLICH. VIEL SPASS" 
PRINT"WUENSCHT EUCH BILLINGERSOFT, ® 

PRINT" * = HINDERNIS. VORSICHT, AUFFAHREN MOEBLICH" 
PRINT’ 9 = = MAUER" 

PRINT"RIANMERKUNG = HINDERNISSE UND MAUERSTUECKE" 

PRINT" KANN MAN MIT DER KANDNE ZERSCHIESSEN" 
FOKEP+5,0*816+1:POKEP+4,15%*16+1 
FORT=52737 17052752: READA: POKET „A:NEXT 

FOKEP+12,0: POKEP+13,240 

LFN< >OTHENLZ2O 

FORT=0T08: FORY=0T062: READA= POKE12B00+T*&4+Y „Az N=N+A:NEXT 
POKE12800+T*64+Y+1 „O: NEXT: POKEZ040 , 2012 POKE2041 „200: POKE2042, 208: POKE?043 ,20 


IFN< >226418THENPRINT"FEHLER IN SPRITE-DATAS" SEND 

POKEV+39 , 13: POKEV+40, 10: POKEV+41 , 1: POKEV+42,1 
FORT=49152T050450: READA: POKET ‚AsLL=LL+AsS NEXT: IFLL=168073THEN118 
FRINT"FEHLER IN MASCHINENEPROGRAMMDATAS" END 

PRINT"LERWER STEUERT DEN ROTEN PANZER {PORT 1}"=zINFUTAI$ 
FRINT"EREWER STEUERT DEN GRUENEN PANZER (PORT 2)" = INPUTAZS 
POKEV „423 PDKEV+1 „120: POKEV+2, 50: PDKEV+3, 120: POKEV+16, 2: POKEZ040 ,201 
PRINT" LIBEISZUFALLSSPIELFELD ODER STANDARTSPIELFELD" :POKE2041 ,200 
PRINT""TAB (15) "(7/5)" 

GETA$:= IFAS<>"Z" ANDAS< >"S" THEN292 

PRINT"Li" 2 IFAS=" 2" THENR=1 
X11)=93:X(2)=207: X(37=232: X (4) =413:X (5) =533: X (6) =957 

9=1024: FORT=1T020: POKERND (1) #1024+0,425 NEXT 

FORY=1T06: X=X (Y) = IFRS >OTHENX=X+INT (RND{1) #4+INT{RND(13*3-1)%*40) 
ONYGOSUB900, 1000, 1050,1100,1150,900° 

NEXT: POKEV+21 „15: FORT=2T04: POKE1384+T „32: POKE1417+T „32: POKE1424+T,32 
POKE1457+T1 „32: NEXT: POKEP+24,15 

POKE165 ,201:POKE1664,, 200: POKE182,0: POKE1B4,0 

POKEV+5 0: POKEV+7 ‚0: FOKE650 , 128: CI=PEEK (V+30) 1 LI=PEEK (V+Z1) 
SYSA9HB4: POKEV+21,0 

A=PEEK (51200) = PRINT"J": IF (AANDS) =STHENZZ 

IFtAAND1)=1THENS19 

IF (AAND2)< >2THENS12 

PRINTA1$" HAT VERLOREN" 

FRINTA2£" WIRD ZUM HAUPTMANN BEFDERDERT":BOTOS?S 

PRINTAZ£" HAT VERLOREN" 

FPRINTAI£" WIRD ZUM HAUPTMANN BEFOERDERT":1SOTOZ?S 

PRINT"IHR HABT BEIDE VERLOREN. " 

FRINT"IHR WERDET BEIDE ZUM FRIEDHOF BEFDERDERT" 

POKEF+24 „0: FORT=1T05000: NEXT=PRINT"BRENOCH EIN SPIEL {J/N)" 
BETA: IFAS< 3" J"ANDASZS"N"THENZ2& 

IFA£="J"THENR=0: EDTO120 

END 

SOTOBOO 
FORT=1T012: POKER+X+T „ 150: NEXT: RETURN 

FORT=1T012: POKEQ+X+T*40, 150: NEXT: RETURN 


1000 SOSUE9S50: FORI=OTDa:r POKEO+X+T#40+1 , 150: NEXT: FORI=0TD&: POKEQ+X+1 „160 


1001 


NEXT=RETURN 


1050 S0SUB?50: FORI=OTD6: POKEU+X+T#40-1 , 1602 NEXT: FORI=OTOS: FOKER+X- I, 160 


1051 
1100 
1101 


NEXT: RETURN 


SOSUR700: FORI=0TO2: POKER+X+T-I%*40 , 150: NEXT: FORI=0TDZ: FOKEU+X-I*40,160 
NEXT: RETURN 


1150. GOSUB900: FORI=OTD2: POKEB+X+T+1#40,, 160: NEXT: FORI=OTOZ: FOKEQ+X+I1#*40, 180: 


1151 


NEXT=RETURN 


2000 REM DATEN 


7001 


DATA 24,24,5,5,66,56,85,85,49,49,20,20,225,228, 240,740 


10000 REM SPRITE-DATEN 

10001 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,128,1,85,64,3,7,224 ,224 
10002 DATA117,224,63,247,224,224,119,224,3,7,224,1,85,64,0,255,128,0,0,0,0 
10003 DATAO0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15 
10004 DATA248,0,21,84,0,63,6,0,63,112,56,63,127,274,63,112,536,63,5,0,21,84 
10005 DATAO,15,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80,0,0,80 
100064 DATAO,0,112,0,0,32,0,0,32,0,0,168,0,3,174,0,4,33,0,6,115,0,4,113,0,& 
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10007 
10008 
10007 
10010 
10011 
10012 
10013 
10514 
10015 
1001& 
15017 
10018 
10917 
10020 
10021 
10022 
11000 
11001 
11002 
11003 
i1004 
11005 
1100& 
11007 
11008 
1100697 
11010 
11011 
110612 
11013 
11014 
11015 
110914 
11017 
11018 
110197 
11020 
11021 
11022 
11023 
11024 
11025 
11028 
11627 
i1l028 
11623 
11050 


|: 11031 


18 


11032 
11033 
11034 
11035 
11038 
11637 
11038 
11657 
11040 
11641 
11042 
110643 
11044 
11045 
11044 
11047 
11048 
110497 
11650 
110651 


DATA115,0,4,1,0,7,255,0,5,253,0,7,255,0,5,253,0,3,254,0,1,252,0,0,0,0 
DATAO,0,0,0,0,0,0,0,0,1,252,0,3,254,0,5,253,0,7,255,0,5,253,0,7,255,0 
DATA4,1,0,6,115,0,4,113,0,6,115,0,4,33,0,3,174,0,0,1698,0,0,32,0,0,32. 
DATAO,0,112,0,0,80,0,0,80,0,0,0,0,0,0,0,0,0,0,0,0,128,0,1,0,0,0,160,0 
DATA173,64,1,98,0,3,132,0,5,40,0,14,112,0,20,250,0,62,115,0,95,37,0,127 
DATA142,0,63,212,0,31,248,0,15,208,0,7,224,0,3,64,0,1,128,0,0,0,0,0,0 
DATAO,0,0,0,8,0,0,4,0,0,40,0,0,20,24,0,2,52,0,1,14,0,0,155,0,0,115,128 
DATA2,249,64,6,115,224,5,39,208,3,143,240,1,95,224,0,255,192,0,75,128 
DATAO,63,0,0,22,0,0,12,0,0,0,0,0,0,0,0,12,0,0,22,0,0,53,0,0,95,128,0 
DATA255,192,1,95,224,5,143,240,5,39,209,6,115,224,2,249,64,0,115,128 
DATAQ,165,0,1,14,0,2,52,0,20,24,0,40,0,0,4,0,0,8,0,0,0,0,0,0,0,0,0,0 
DATAO,1,128,0,3,64,0,7,224,0,15,209,0,31,248,0,63,212,0,127,142,0,95 
BATAS7,0,62,115,0,20,250,0,14,112,0,5,40,0,3,132,0,1,98,0,0,173,64,0 
DATAO,160,0,1,0,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,030,0,040,0,0,0,0,0,0 


DATAO,0,0,0,0,0,0,0,240,0,0,240,0 

REM MASCHINENPROGRAMMDATEN 
DATA200,169,1,10,136,208,252,74,96,168,10,170,189,0,208,217,1,206,208 
DATA26,32,0,192,45,16,208,208,18,224,3,176,5,169,3,133,177,96,232, 169 
DATAO,157,0,208,149,177,96,222,0,208,189,0,2089,201 ,255,208,236,138,74 
DATA16B,32,0,192,73,255,45,16,208,141,16,208,96,168,10,170,1897,0,208 
DATAZ17,5,206,208,15,32,0,192,45,16,208,240,7,224,3,176,199,76,32,192 
DATA254,0,208,208,224,138,74,32,0,192,13,16,208,141,16,208,76,168,10 
DATA170,232,189,0,208,217,7,206,208,7,224,4,176,164,76,32,192,272,0,208 
DATA?6,168,10,170,232,189,0,208,217,13,204,208,7,224,4,176,141,76,32 
DATA172,254,0,208,96,173,0,207,41,1,240,25,165,165,205,248,7,208,12,162 
DATAO,134,168,32,120,193,162,0,76,120,193,165,165,141,248,7,96,162,0 
DATA78,231,192,175,0,207,41,2,240,25,165,166,205,249,7,208,12,162,1,134 
DATA168,32,120,193,162,1,76,120,193,165,166,141,249,7,96,162,1,134, 168 
DATA189,248,7,149,165,189,0,220,41,15,201,14,240,29,201,13,240,38,201 
DATA11,240,49,201,10,240,57,201,9,240,55,201,7,240,73,201,6,240,81,201 
DATAS,240,99,76,187,248,7,201,202,240,106,169,202,157,248,7,76,199,248 
DATA7 ,201,203,240,5,1549,203,76,29,193,76,199,193,189,248,7,201,200, 240 
DATA105,169,200,76,29,193,189,249,7,201,205,240,114,169,205,76,29,193 
DATA187,248,7,201,206,240,93,169,206,76,29,193,189,249,7,201, 201,240 
DATA77,169,201,76,29,197,189,248,7,201,204,740,87,169,204,76,29,193,189 
DATA248,7,201,207,240,36,169,207,76,29,193,199,248,7,201,202,240, 72,201 
DATA2O1 ,240,29,201,203,240,29,201 ,200,240,29,201,204,240,29 201 ,207,240 
DATAS4,201,206,240,39,138,32,71,172,165,188,76,137,192,138,76,7,192,138 
DATA76,114,192,138,76,71,192,138,32,137,192,165,168,76,9,192,138,32,9 
DATA192,165,168,75,114,192,138,32,71,192,165,169,76,114,192,138,76,137 
DATA192,173,0,220,41,16,240,1,96,165,182,208,751,169,255,133,192,162 
DATAQ,32,241,193,173,1,220,41,16,208,235,145,186,208,231,169, 255,133 
DATA194,162,1,169,8,224,0,240,1,74,24,105,3,45,16,208,141,16,209,224 
DATAO,240,18,169,2,45,16,208,240,23,169,8,13,16,208,141,16,208, 76,35 
DATA194,169,1,45,168,209,240 ,5,169,4,76,14,194,1899,248,7,149,148,160,16 
DATA132,179,201,200,240,34,201,701,240,40,201,202,240,44,201 ,203, 240 
DATASO, 201 ,704,240,56,201,205,240,62,201,206,240,68,169,10,32,114,195 
DATA169,0,76,197,195,169,13,32,55,195,169,10,76,175,195,169,14,32,114 
DATA195;76,87,194,169,0,32,114,195,159,21,76,175,195,169,0,32,114,195 
DATA169,3,76,179,195,169,11,32,114,195,169,19,76,175,195,169,10,32,55 
DATA195,1689,19,76,175,195,169,10,32,55,195,1649,0,76,175,195,165,179,208 
DATA&,169,128,141,4,212,96,201,15,208,10,159,80,141,1,212,169,129,141 
DATAA ,212,198,177,155,179,24,105,4,141,1,212,98,173,5,208,208,2,135,1892 
DATA173,7,208,208,2,133,186,185,184,208,8,169,16,133,184,169,0,133,186 
DATA173,0,207,41,3,208,1,96,75,32,192,173,248,7,133,188,173,249,7,133 
DATA189,173,31,208,141,0,207,32,150,192,32,197,192,165,188,133,165,165 
DATA189,153,166,32,77,1768,32,248,196,32,34,194,32,203,193,32,91,196,32 
DATA195,194,32,34,196,32,224,193,32,34,196,32,150,194,32,34,196,173,30 
DATA208,141,0,200,41,3,240,1,96,162,0,160,0,232,208,253,200,192,21,208 
DATA248,76,222,194,133,178,128,10,168,185,0,208,56,227,178,153,4, 208 
DATA176,15,167,8,172,2,240,1,74,73,255,45,15,208,141,16,20B,185,4,208 
DATA201 ,48,176,20,169,8,192,2,240,1,74,45,16,208,208,8,169,0,149,180 
DATA200,153,4,208,76,133,178,138,10,158,185,0,208,24,101,178,153,4,208 
DATA144,13,167,8,192,2,240,1,74,13,16,208,141,16,208, 185,4, 208, 201,66 
DATA144 ,24,169,8,192,2,240,1,74,45,16,208,240,12,1689,0,200,153,4,208 
DATA149,180,234,234 ,234,234,96,133,178,138,10,168,200,185,0,208,56, 229 
DATA178,155,4,208,201,12,176,236,169,0,76,165,195,133,178,138,10,168 


FPDamnrbr anSh 


Bias 


11052 
11053 
11054 
11055 
11056 
11057 
11058 
11057 
11040 
11081 
11082 
11983 
11044 
i1085 
11044 
11057 
110458 
11057 


DATA200,185,0,208,24,101,178,153,4,208,201 
DATA158,201,200,208,3,74,160,193,201 ,201,208,3,76,168,193,201,202,208 
DATAZ,7&,164,192,201 „203,208,3,76,199,193,201 ,204,208,3,76,170,193,201 
DATA205,208,3,76,181,193,201,206,208,3,76,172,193,76,151,193,208,3,76 
DATAS2,194,201,204,208,3,76,52,194,76,52,194,165, 192,2 240,17,169,2,141 
DATAO,206,165,148,162,2532,221,195, 206 ,0,2058, 208,244, 165,186,240,17,169 
DATA2,141,0,206,185, 
DATAA1,4,240,248,162,4,169,4,32,102,196,173,0,207,41,8,240,234, 162,6 
„208,240,11,189,30,141,0,205,189,0,208 
DATA7&,129,196,189,0,208,56,253,14,74,74,74,24,109,0,205, 133,97 ,232,159 
DATAO, 208,56,233,40,74,74,74,158,200,169,0,132,98,159,4,1533,99,169,40 
DATA24,101,98,135,998,176,75,156,2098,244,24,101,97,123,98,144,2,220,99 
DATA160,0,177 ,98,201,32,208,37,160,40,177,98,201,32,208,29,199,997,160 
DATA214,177,79,201,32,208,19,160,255, 
DATA1,177,98,201,32,208,1,96,167,32,145,98,169,0,157,0,208,224,5,240 
DATAZ,133,184,96,133,182,96,230,99,76,167, 196, 165,177,209,6,169,0,141 
DATAS,212,76,169,4,141,8,212,198,177,206,0,204,173,0,204,74,144, 6,169 
DATA12O, 141,11,212, 76,169,129,76,20,197 


DATA159,8,1580,0,140,0,705,45,16 


sa 
22352, 


werkstatt 


144 ,212,76,194,195,134 


149, 162 ,3,22,221 195. 206,0, 206, 208,244 ,96,173,0,207 


177,98,201,22,208,11,250,99,180 





Werkstatt: Raster-Register „Interrupt“ 


ster überprüft, ob er schon 151 (d.h. _ 


Um nur ein Beispiel zu nennen, wie 
der Raster-Register verwendet wird, 
denkt man am besten an die Grafik- 


I Perspektiv-Effekte bei Spielen für 


den C-64; z. B. an die gleichzeitige 
Bewegung von Wolken, Bergen und 
Straßen in verschiedenen Geschwin- 
digkeiten, die den Eindruck der Tiefe 
simulieren sollen. 
Das Ganze wird von dem Interrupt 
gesteuert. Dazu ein bißchen Theorie: 
Von ihm gibt es zwei Grundformen, 
den maskierbaren und den nicht 
maskierbaren Interrupt. 
Das erste kann aktiviert oder desakti- 
viert werden durch die Assembler- 
Befehle CLI (clear interrupt disable) 
und SEI (set interrupt disable). Das 
bedeutet, daß — wenn man will - 
diese Interruptarten manipuliert wer- 
den können. 
Das zweite Interrupt muß von der 
Maschine erkannt werden. Dies ist 
ein Signal, das dureh die Betätigung 

der Tasten RUN/STOP und RE- 
STORE ausgelöst wird. 

Wenn der G-64 eingeschaltet wird - 
‘ und der Cursor blinkt — dann ist 
bereits ein Interrupt erzeugt. Also, tritt 
ein Interrupt-Zustand ein, so wird 
von der Hardware diesem Vorgang 
Priorität vor allen anderen Aufgaben 
eingeräumt. Dabei ist es gleich, was 
der Computer zu diesem Zeitpunkt 
macht. Er muß sofort seine Arbeit 
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einstellen und die Interruptroutine 
abarbeiten, die sich im Betriebssy- 
stem von Adresse $EA31 bis $ECBB 
befindet. 

Hier wird etwa 60 mal in der Sekunde 
geprüft, ob eine Taste gedrückt wur- 
de, welche das Blinken des Gursors 
erzeugt, Ist die Interruptroutine been- 
det, so wird der Computer das Pro- 
gramm, das er unterbrochen hat, wei- 
ter fortsetzen und zwar an der Stelle, 
wo es unterbrochen wurde. 

Diese Unterbrechungen werden vom 
menschlichen Auge nicht wahrge- 
nommen, da der Prozessor mit einer 
Geschwindigkeit arbeitet, die im Be- 
reich von Mikrosekunden liegt. 

Die Anfangsadresse der Interruptrou- 
tine befindet sich in den Speicher- 
steilen $0314-$0315 mit dem Inhalt 
$EA31 in der Reihenfolge Low-Byts, 
High-Byte. Falls man in diesen bei- 
den Speicherstellen die Adresse von 
einer der Routinen ablegt, so wird bei 
jedem Interrupt diese abgearbeitet. 
Jetzt zurück zum Raster-Register. Er 
befindet sich in Adresse $D012 des 
VIC (video-interface-controller) und 
wird auch als Register 18 bezeichnet. 
Würde man diesen ständig ablesen, 
so könnte man feststellen, weiche 
Rasterzeile des Bildschirmes augen- 
bilicklich geschrieben wird. 

Nun probieren wir es mit einem Ba- 
sic-Programm, das der Raster-Regi- 


Bemsuße miP 


halber Bildschirm) erreicht hat — 

die Randfarbe zu ändern - und dann 
wieder bei 0, damit der Bildschirm- 
rand zweifarbig dargestellt wird. 
Man merkt aber bald, daß es nicht 
einwandfrei funktioniert, weil das Ba- 
sic nicht so schnell arbeitet. Der Ra- 
ster-Register wird mit einer Ge- 
schwindigkeit inkrementiert, so daß, 
wenn das Basic-Programm 15% er- 
reicht hat, der Raster bereits über 200 
liegt. 

Nun, was ist unter Raster-Register 
zu verstehen? Zunächst eine kleine 
Definition: Register 18 ($D012): hier 
wird die Nummer der Rasterzeile an- 
gegeben, bei deren Strahldurchlauf 
ein IRQ} ausgelöst werden kann. Der 


‚Übertrag dieser Register befindet 


sich in der höherwertigen Bit in Regi- 
ster 17 ($D011). 


- Der Raster-Register leistet in Wirk- 


lichkeit {wie viele andere auch) eine 
Doppelfunktion. Abhängig von der 
jeweiligen Zugriffsart. Lesen (PEEK) 
oder Schreiben (POKE) werden un- 
ter derselben Adresse an verschiede- 
ren Stellen angesprochen. 


Lesen „PEEK“ 


Wird der Register gelesen, so erfährt 
man die gerade bearbeitete Raster- 
zeile. Z. B. lesen wir in $D012 eine 0, 
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dann bedeutet das, daß der Elektro- 
nenstrahl - in die erste {nicht sichtba- 
re) oder 251 in die letzte (sichtbare) - 
Zeile schreibt. 
An dieser Stelle ist noch zu sagen, 
‘daß sich die erste sichtbare Zeile bei 
51 und die letzte bei 251 befinden. 
Während von 0-50 und von 252-280 
der Bereich nicht einzusehen ist. 


Schreiben 
„POKE“ 


Wird der Register beschrieben, bleibt 
dieser Wert gespeichert und dient 
dem internen Vergleich, ob er mit der 
aktuellen Zeile gleich ist, Falls diese 
positiv ausfällt, wird ein Interrupt- 
Signai ausgegeben. 

Um nach diesem Verfahren arbeiten 
zu können, muß noch ein kleines 
Problem gelöst werden. 








PA ee EL 


Nachdem die Anfangsadresse im In- 
terrupt-Vektor in $0314-$0315 hin- 
teriegt wurde, wird man feststellen, 
daß das Ergebnis noch nicht den 
Erwartungen entspricht, weil der im- 
mer noch aktivierte System-Interrupt 
stört. 

Dieser Interrupt kommt nämlich von 
CIA (complex-interface-adapter) 
Adresse $DCOD. Dieses Phänomen 
kann man nicht mit SE] unterbinden, 


weil damit auch der ebenfalls mas- 


kierbare Rasterzeile-Interrupt abge- 
schaltet würde. Man umgeht dies, 
indem man erst den Interrupt desak- 
tiviert. Danach wird die Änderung 
vorgenommen und anschließend wie- 
der aktiviert. 

Auf diesem Prinzip basiert die Routi- 








ne „DEMO-RASTER“. 

Der nächste Schritt: Jetzt diese Rou- 
tine in den Einzelheiten analysieren: 
Zuerst den Interrupt desaktivieren, 
indem der Wert dez. 127 ($7F) in den 
Register $DCOD geschrieben wird. 
Nun den Interrupt-Vektor mit der 
Adresse belegen und dann wieder in 
$DCOD den Wert dez. 129 ($81) 
schreiben, um den Interrupt erneut zu 
aktivieren. 


Die Befehle in $C014 und $C016 
schreiben eine 1 in Register $DOTA, 
damit der Rasterzeile-Interrupt aus- 
gelöst wird und zwar jedesmal, wenn 
der Vergleich (siehe Abschnitt 


Schreiben} mit dem Register 18 posi- 
tiv ausfällt. 
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AFFE „DA RT 
SO SD DIE 5TA DOOD 5 Interrupft desaktivieren 
An DE po s Interrupt-Vektor aendern und 
SD 14 03 575 omijg 5 it der Adresse 80022 belegen. 
Ar LER BLOG 
öl 50 15 05 5TA 0315 
Te Bei IE del s Interrupt reaktivieren 
‚LOL SD SO DE 5Ta DEOD 
a RE + De DA Bol : Rastarzeile-Interrupt aktivieren 
LE So 15 Do ZTA DOlß 
„LE Ab 11 0 LE Doll R 
‚„Loit TE ARTE dEFE ; zefizt auf null der hosherwerti mE = Bit 
üon  5Ta noij F des Raster-Register, 


‚DOlE BO 12 


RT 


Basiı 


Zu 0933 








ı Zurueck 


In% Dion 24 RE: 

ee, BON? ; Frusft von wo der Interrupt kommt 
ann Bol y Warn von RaästereRegister dann 
EBENE LOSE 4 geht weiter 


„MP FEED 


STE 


ı Sonst kehrt zum Interrupt. 


Gnij> & Schreibt 1 in Raq.Zs 
zı1oo : liest eine Farbe und 
FEDKPE schreibt in den Randfarbe-kegister 





u 


inzremenftiert dia Farbe 
liest einen helibiegen Wert 
addiert 810 (dem.18} 
schreibt ur] 

auch In tar-Raegister. 


ı Dann prusfti ch schon 255 erreicht 


wir sn 


tn a 





zuruack 





wu mE ns 


lie Pla: 


Hat 


s sonst springt zu dar Interrupft-Routine 
$EREL . 


ab Aureese 


RIRE 


? a NS EHE ih 


Von $C019 bis $CO1E löscht man 
den höherwertigen Bit in den Register 
17 (siehe Definition). Für den Raster- 
Register ($DO12) sind nicht acht, 
sondern neun Bit zuständig, um ei- 
nen Wert, größer 255, darstellen zu 
können. Dieser neunte Bit ist bereits 
der höherwertige des Register 17, den 


0 REM 
REM 
REM 
REM 
REH 


KFRFHENIERERH USE 
8 DBEPMÜ-RASTER ** 
HHHHSHHHSHHennNiH 
x BY E% 
FEHTFFHCHC HERRIN 
40 REM == 5.YARLENTING ** 
I REM OHREN 
Aa GLASRESTORE 


SYS 


49152: FRINT"L 


FORX=47152T049722A: READA:S=SHräs FOHER, 
Ss IFS<>B481THENFRINT"FEHLER IN DATAS: "END 
uNAsTER AKTIVIERT! 
DATAIAY,127,131,17,220,167,34, 151,20,2,167,172,131,.21,7,189,, 125,131 


man auf null setzt, weil im genannten 
Beispiel nur Werte bis 255 vorkom- 
men. 

Der RTS in $C6021 bewirkt die 
Rückkehr In Basic. 

Mit diesem Teil der Routine hat man 
erreicht, daß bei jedem Rasterzeile- 
Interrupt die Routine ab $C022 ab- 
gearbeitet wird. Diese hat durch den 
niederwertigen Bit in Register 25 
($D019) die Aufgabe, zu prüfen, ob 
der gerade ankommende  Interrupt 
von dem Raster-Register ist oder 
nicht. Falls ja, dann geht man weiter 
in die Routine. 


«NEY ur 


":END 


DATA169,1 ‚141,26,2098,172,17,208441, 127,141,17,208,98, 173,25,208 411,2 
DAT AZ,76, isa,254, 141,25,208,172,0,173,131,32,208,278,0,153,17 
3 DATA10S,16,141,0,194,141,18,2058,144,227, 76,39, 254 


programme 


Die restlichen Vorgänge kann man 
aus der Assembier-Listing entneh- 
men. Das Endergebnis wird sein, daß 
die Randfarbe bei jeder 16. Zeile 
geändert wird. 

Das war ein kleines Beispiel für die 
Verwendung des Raster-Register 
und des Interrupt. Man könnte, um 
noch eine Anwendung zu zeigen, in 
$0314-$0315 die Adresse einer Rou- 
line angeben, die z. B. ein Musik- 
stück spielt, und gleichzeitig ein 
Progr. schreiben - oder - laden usw. 
Probieren Sie, während „Demo-Ra- 
ster“ läuft, POKE 49213 x einzuge- 
ben, wobei x ein Zweierpotenz (Basis 
2) ist. 


„ia PEELV; 





ee 
„2,174,24 





Die Eltern wollen nicht zurückstehen 





Eine neue technische Revolution hält 
in immer mehr Privathaushalten ihren 
Einzug. Die Rede ist von den Home- 
und Personalcomputern. Meist sind 
es zuerst die Kinder, die rein spiele- 
risch die Herausforderung des Heim- 
computers an Kreativität, Phantasie 
und Logik aufnehmen. Sie sehen es 
heute fast mit einer Selbstverständ- 
lichkeit an, daß ihr Spielkamerad 
„Computer“ einen Platz in ihrem 
Zimmer übernimmt. 

Die Eltern dieser Kinder sind der 
neuen Technik jedoch noch nicht so 
überzeugend gegenübergetreten. Sie 
behandeln den Computer noch im- 
mer mit etwas Skepsis und haben 
teilweise noch erhebliche Berüh- 
rungsängste mit diesem neuen Medi- 
um. Einige entdecken aber im Gom- 
puter bereits ein nützliches Hilfsmittel 
für den häuslichen „Schreibkram“ 
und werden somit zu fleißigen Nach- 
ahmern ihrer Kinder. 

Im Bild sehen Sie zwei typische Ver- 
treter der Computergattung Home- 
und Personalcomputer. Vorn der 
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neue Commodore 128, an dem die 
Eltern ihre Programmierkenntnisse 
testen, und hinten der Commodore 


64. Er ist inzwischen der meistge- 
kaufte Computer der Welt und beson- 
ders bei der Jugend sehr beliebt. 


(Werkfoto Commodore Büromaschinen) 


Gompufe mi 
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100 
101 
1062 
200 
201 
205 
211 
#15 
220 
230 
235 
236 
237 
238 
237 
240 
241 
250 
2Si 
232 


50 FOKES3249+33,0:POKES3248+32,0: G0TU1000 
&0 GOSUBZ0000 


Commodore 64 





Vampire greifen an Ä 





Sie leben in einer alten Burgruine und werden Nacht für Nacht von den 
Vampir-Fledermäusen des Grafen Dracula heimgesucht. Diese Fledermäuse 
sind aber etwas gefährlicher als die aus den bereits bekannten Geschichten um 
den Grafen Dracula. Der Autor dieses Programms hat alle Fledermäuse, die in: 
diesem Spiel auftauchen und Sie in Ihrer Burg bedrohen, mit Bomben 
ausgestattet. Diese Bomben können Sie nun mit Hilfe einer Kanone abschie- 
Ben und somit die Zerstörung Ihrer Burg verhindern. Die Kanone läßt sich in 
alle acht Richtungen bewegen und Sie haben dadurch die Möglichkeit, völlig 
flexibel auf Angriffe der Fledermäuse zu reagieren. Schützen Sie sich und die | 
Burgruine vor den Bomben der Fledermäuse. 
Eine weitere Gefahr stellen die je nach gewähltem Schwierigkeitsgrad unter- |} 
schiedlich schnell von der Seite nahenden Raketen dar. Diese haben sich | 
zusammen mit den Fledermäusen zur Aufgabe gemacht, ihre Abwehrkanone zu | 
zerstören. Hüten Sie sich also vor jedem Raketentreffer und versuchen Sie, } 
durch schnelle Ausweichmanöver diesen Gefahren aus dem Weg zu gehen. | 
Der Joystick muß in PORT 2 eingesteckt werden! 







O REM SKAEN KEN | 
1 REM * * i 
2 REM * VAMPIR (0) 1995 x 
Z REM + WRITTEN BY * 
4 REM # CHRISTIAN WURZER x | 
5 REM * * | 
& REM * FOR COMMODORE 64 & 
7’REM + % 

B REM SEHR 

2 z 


SY549152: FOKEV+21 ,127: POKEV+27,,0: POKEV+42 12 POKEV+44 1 
POKE711,0:POKE715,05POKEV+30,0 ; 
FOKESI245 ,PEEK (55245) AND1& 
REM ** FLUEGEL-SCHLAGEN 7 


IFVAL{TISI<1THEN2IS 

FÜKE2042,,210: POKE2044 ,210 
FORT=GTOF?F: NEXT 
POKE2042, 15: POKE2044,,15 

TI£="000009* 

IF<(PEEK (V+16) ANDSA) <-64 THENDSO 
IFPEEK {V+12) 2 LOOTHEN2SO 
FPÜKEV+1%,0: POKEV+1& ,FEEK (V+16) AND1J1 
WW= INT {RND (0) #4) = IFWW=OTHENFOKEV+12, 624 FOKEV+1Z 153 
IFhHW=1THENFOKEV+12,54=: POKEV+13, 161 
IFWW=ZTHENFOKEV+12,4&6: POKEV+13,169 
IFWW=3THENFOKEV+12,39: POKEV+13, 177 
REM #* SCORE 7? 


K-PEEK (V+30) 
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programme_ 


IF (KAND10) =10 THENPIKE7043 , 217: SC=SE+10: SOSUB72O 
IF {KANDS4} =34THENFOKE2045 , 212: SC=SC+10: EUSUB720 
IF (KANDYP) =FTHENSOO 

IF<KANDSS?I =33THENGBOO 

IF (KANDASI=SSSTHENGOO 

SOTO200 

REM ##* SCDRE 


POKES3204 „100:5Y553200 
POKE214,21:POKE211,8:5YS5B8540: FRINT"3"SC: FOKEVY+3O,0 
IF (KAND1O) =1OTHENFOKEV+21 „PEEK (V+21) AND247: POKE711,0 
IF (KAND3F4) =34THENPOKEV+Z1 „FEEK (V+Z1) ANDZ23: FOKE715,0 
RETURN - 


REM #* EIG. KOLL. 


FOKE?2040 ‚213: FORT=OTOS: POKEV+33 ,1: POKEV+33 ,O: NEXT 
FORT=20T01STEP-1:POKES3206, T:5YSSI200:NEXT 

L=1-12 IFL{OTHENSSO 
POKE214,21=:PDKE211,35: SY8558640: PRINT"E"L: POKE2040, 13: FOKEV+30 ,0:60T0300 
REM ** GAME OVER 

POKEV+21,&1 

FORT=11079: POKE214 ,5: POKE211 ,15: SY558640: PRINT"GAME OVER":POKEA44,T:NEXT 
POKE214,7:POKE211,8:SYSSB&A40: PRINT"NEUES SPIEL = FEUERKNOPF" 

POKE&A3& , INT (RND (0) #16) = IFPEEK (56320) =1 11 THENFOKEV+21 „02601015000 


840 G0OT0B55 

i000 FRINT'LIETeE Km 7 u De Pd TE Teig WW" 

1001 FRINT'S BB E ER DEI Ed ii" 

1002 PRINT EG NG "ZeyimRa win mp" 

‘1003 PRINT BER Um mm dmg m wel MUT" 

1004 FRINT’’G IP wr Fr ırF mr %" 

1010 PRINTTAB(14) "BEIN ACTIGON-SPIEL":FRINTTAB (23) "WIN ID-SRAFIK:" 
1020 : 

16524 FPRINTTAB(13I "SREKRITTE WARTEN!" 





1025 FRINTTAB{B) "BDATEN WERDEN EINGELESEN" 
1050 FRINT"ERUES “ ” 


1031 





PRINTITE 7 IITIIT" 


2000 REM ** MC-PRG. 

2002 DATA120,149,192,141,21,3,169,13,141,20,3,98,9& 

20053 DATA173,3,208,141,1,212 

2005 DATA174,0,220,224,112,176,73,174,195,2,224,0,208,66,173,16,208,41,253,141 
2006 DATA16,208,173,16,208,41,1,170,224,1,208,6,238,16,208,238,15,208,174,0,208 


2007 


DATA142,2,208,174,1,208,142,3,208,162,255,142,195,2,162,0,142,4,212 


2008 DATA162,4,142,1,212,152,10,142,5,212,162,15,142,24,212,162,129,142,4,212 


2010 


DATA174,3,208,224,40,1756,16,162,0,142,195,2,142,3,208,173,16, 208,41 ,253 


2012 DATA141,16,208 

2102 DATA169,0,141,192,2,141,193,2 

21053 DATA173,0,220,41,237,141,253,207,174,254,207,224,1,240,112 

2105 DATA174,253,207,224,107,209,5,169,255,141,192,2,174,253,207,224,103 

2106 DATA208,5,169,1,141,172,2 

2107 DATA174,253,207,224,110,208,5,167,255,141,193,2,174,253,207,224,109,208,5 
2108 DATA169,1,141,173,2,174,253,207,224,106,208,8,169,255,141,193,2,141,192,2 
2109 DATA174,253,207,224,102,209,10,169,255,141,192,2,169,1,141,192,2 

2110 DATA174,253,207,224,105,208,10,169,1,141,193,2,149,255,141,192,2 


2111 


DATA174 ,253,207,224,101,209,8,169,1,141,193,2,141,192,2 


2119 DATA173,16,208,41,1,170,224,1,240,12,174,0,208,224,58,176,17,169,1 
2120 DATA141,192,2,174,0,208,224,58,144,5,169,255,141,192,2 e 
2150 DATA174,1,208,224,145,176,5,169,1,141,193,2,174,1,208,224,171,144,5,169 


2151 


DATA255,141,193,2 


2162 DATA173,16,208,41,4,170,224,4,240,12,174,4,208,224,60,176,17,169,1 
2165 DATA141,196,2,174,4,208,224,60,144,5,169,255,141,196,2 

2164 DATA174,5,208,224,050,175,5,169,1,141,197,2,174,5,208,224,110,144,5 
2165 DATA149,255,141,197,2 

2185 DATA173,16,208,41,16,170,224,16,240,12,174,9,208,224,60,176,17,169,1 
2187 DATA141,200,2,174,8,208,224,60,144,5,169,255,141,200,2 

2188 DATA174,9,208,224,050,176,5,169,1,141,201,2,174,9,208,224,110,144,5 
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2189 
2171 
2192 
2173 
2174 
2195 
2194 
21977 
178 
2210 
2220 
2230 


2220 : 


2250 
3040 
3020 
SOrS 
4080 


DATA159,255,141,201,7 
Dn1n172216,208,41,4,170,224,4,240,37,174,199,2,224,0,208,30,173,4,208,141 
On TAn»208,173,5,208,141,7,208,169,1,141,199,2,173,21,208,9 0,141, 21,208 
DATA169,211,141,251,7 

101017127 ,208,224,170,144,13,169,0,141,199,2,173,21,208,41,247,141,21,208 
DA1A172,16,208,41,16,170,224,16,240,37,174,203,2,224,0,208,20, 173,0 208 
DRTA191,10,208,173,7,208,141,11,208,159,1,141,202,2,173,21.208,9, 32.141 
DRTA21,208,169,211,141,253,7,174,11,208,224,170,144,13,169,0,141.203,2 
DATA173,21,208,41,223,141,21,208 

DATA162,15,169,128,141,61,2,141 
unranoa33222,208,2,208,44,189,176,2,157,208,2,189,192,2,240,33,16,12,189,0 
DAT A209,8,222,0,208,40,240,7,208,19,254,0,208,208,14,173,60,3,208.9, 172.21 
DaınS277216,208,141,16,208,173,60,2,208,3,78,61,3,73,128,141,60,3.202.16 
BDATA191,76,49,234,,—1 

DATA162,0,142,11,212 

ann 62,255,142,8,212,162,10,142,12,212,162,15,142,24,212,162,129, 142,11 
DATA212,94,—1 
nTA120,169,49,133,1,169,0,153,98,133,100,167,208,133,99,169,56,133, 101 
DRTA162,16,160,0,177,98,145,100,200, 200,249 ,230,99, 250, 101,202, 208,242 
DATA169,55,133,1,38,74,—1 
1n1n0,225,223,223,0,251,251,251,0,0,0,0,32,0,0,0,12,82,225,192,225,82,12 
DATAO,192,112,60,30,14,15,15,15,15,15,15,14,30,60,112,192ye1 


FORT=0T01799: READY: IFO=-1 THENSO?4 
POKE49152+7 „G:NEXT 
FORT=0T0999: READU: IFO=- 1 THENSOZO 
PORESZZOO+T „GB: NEXT 
FORT=0T0999: READER: IFO=-1 THENSOZS 
FOKESFO00+T „Q= NEXT 


; SYSS3000: FOKESS272, (PEEK (53272) AND240)OR1A 


FORT=070999 : READR: IFG=-1 THENSO1O 

FOKE143365+27#8+7 „DI:NEXT 
Daunaarsssmssannsnynnnnnnn60n, 5192, ,,192,,,224, 51,224, 41,224, ,15,255,192 
ann 25,225, 160,49,195,96,96,6,192,255,253,128,128,7,,255,254, ,127, 248,0 
DATA, 564, ,,64,7,224,,1,240,,3,184,,,160 
DATAyaagansa55 
onlfrassssnnnnnnr14y36,112,63,36,292,127,199,254,206,90,115,132,60,32,,24 
DET ann ee 2 2 
a4 10, 31,60,,60,50,,120,31,,248,63,36,252,7,165,224,1,189,128, ,219,0 
DATAO,60,0,0,24,0 
DATA, sysrsHR I 35 
DATA, 5,36, ,,24,, 
DATAyaasassassr 
DATA, 570,,,129, 
DAazsszssorsssnsennnnnnlBnn 2,00, 35,192, ,36,,1,216,32,2,52,64, 5195 
DATA128,3,,96,28, ,16,9Gyyarı, 


an a a ae 


FETT ITTTTTITTTTITTTVITETITETEG 


FEITETTITITIIEHTITTHTTTEERIITT NN 
- = = zZ 
RRIETIETTERTIT NT SSH 705102, 44126, ,,70 


vrrTSUTerTTEE HT 9 AA, 524,556, 508 
* 


777275317993 


100060 REM #* EINLESEN DER SPRITES 


FORT=0T063: READU: FOKEBZ2+T ,D=: NEXT 


10029 FORT=0T0683: READR: POKEBFA+T ,Q: NEXT 


FORT=0T083: READ@: FOKEJSO+T ,B=ENEXT 
FORT=0T083: READQ: POKE13440+T „U: NEXT 
FORT=0T063: READER: POKE13S04+T „Qs NEXT 
FORT=0T083: READY: FOKE13568+71 ,Qs NEXT 
FORT=0T053: READQ: FOKE13432+T „Os NEXT 
FORT=0T063: READR:FOKE13696+T „Or NEXT 
REM #* LEVEL 


FOKES3248+42 ‚0: FOKESZ248+44 „0: POKES3248+27 ,40 


15003 FORT=OTO100: POKESZ206, T:SYS532003NEXT 


FRINT"STIDISIND SIE 1 = ANFAENGER, & 
PRINTTAB(7)°@ 2 = FORTGESCHRITTENER DDER" 
PRINTTAB(TI"A 3 = EXPERTE 7" 


180009 GETAF 
16010 IFAS="1"THENLE=4: 601020000 
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16011 
16012 
16013 
20000 
20001 
20002 
20020 
20024 
20042 
20043 
20044 
20046 
20947 
20047 
20060 
20142 
20143 
20170 
20172 
20173 
20174 
39000 
30010 
30020 
30021 
30022 
30050 
30052 
30054 
30056 
30058 
30060 
30062 
30064 
3006& 
30068 
30070 
30072 
30074 
20075 
30100 


tips & tricks 


IFAF="2" THENLE=2: G0OTO?O000 

IFAt="3" THENLE=0: BOTD20000 

GOTO1A0OO 

REM #* VARIABLEN, DATEN 

FOKES3265 ,FEEK (53285) 0R237 

v-7324B: 1L=9: 5C=0: POKESS247 ,0: FDOEESSE?4& „O0: POKESAF2S,2 
FORT=&B8T0719: POKET „OÖ: NEXT: POKEV+773,0: POKE7OB,1:FOKE7O9,1 
FOKE712,1:POKE713,1:PORE715,1 

FOKES88, 3: FPOEES87,,5 

POKEAP0,1: FOFESP1 „1 

FOFKEAYF2,3+LE= FOKEAF3Z 12H LE 

FOKESPA  „S+LE: FOERESPT ,12HLE 

POKEAF5 „3: POKEA99 „3: POKE700, IrLE 

PFOKE2O045,, 214 

FOKE7940, 13: POKE2041,,14: FOKE2O42 15: POKE2043, 211: FOEEZO44, 15: FOKE2045 , 211 
POKREV+37 ,1: POKEV+AO, 1% POFEV+41,1 

POKEV+43 1 

FOEKEV+1&,,0: POKEV, 150: FOKEV+1, 180 

FOKEV+Z „O0: FÜKEV+4 , 75: FOKEV+I „50 

FOEEV+B , 200: POKEV+F „110: POKEV +12, 100: FOKEV+13,D0 
GSOTO&O 

REM #*+ GRAFIK 


PRINT"E" 

FORT=0T022: ET=1NT {RND (0) #400) » FOKE1OZ4+ET „ZB: FOKESS2F&+ET,1:NEXT 
PRINTTAB (35) "4": FRINTTAB (35) "I4_"= PRINT" ERtI" 

PRINT IP mm " 

PRINTER mr | 


PRINTUEEE mp | wo 
PRINT'CEBM we | BIELEr® 
PRINT"OHE | SEELE» 
PRINT"LEICE | nd z. 
PRINT"TEI ir ur u 
FRINTFEITE Sir " 
PRINT"TRICH JB Fi 
PRINT "LEICHE zur" 
PRINT "LEILEASF zeit" 
PRINT"TRICCLCELLLCCICLELCETLLITLELELELCLELLLLLLE® 


PRINT"ORSLLILELEICECELELITELLIIILELELELETLLLEELLET" 
PRINT"ZISCDRE D LIVES 23 
RETURN 





TEXT V1: ein Anwendungsprogramm für den C 64 und VC 20 


TEXT V1 istein kurzes Anwendungs- | len). Hier können Sie einen Wert von | Normalschrift und 2 für Sperrschrift. 
programm zur Veränderung und Aus- | 0-79 eingeben. Anschließend müs- | Leider hat das Programm einen klei- 
gabe verschiedener Texte. Nach dem | sen Sie den Schriftmodus eingeben. | nen Nachteil. Die Kommazeichen- 
Start erscheint auf dem Bildschirm | Hierbei können Sie zwischen zwei | und Doppelpunkte können nicht ver- 
die Frage nach den TABs (Leerstel- | verschiedenen Arten wählen, 1 für | arbeitet werden. 





i DPEH 1.4:PRINTCHREG 14 
2 POEE 53298, 0: POKE73221. 0: PRINT'TII 3 IEAT «1 " 
3 FEINT" SEMRTEISIRESIHiatntnteDeeTsinTeinteisteiete) 6: 1955 Br IARSEHEOFT & LEMMOSOF TIME ; 
4 IHFUT"KIRAE’S "ICH | 
= IFCEZBURCB>FSTHEHS um) Programm-Erklärung: 
e ER Der OPEN-Beiehl in Zeike 1 ehren den Drucker an, in 
€ BETA#: IPAS=" 2" THENA=14:GOTD unserem Beispiel ein Seikosha GP-100 VC. In den Zeilen 6-9 
anne SEMHENNEISSSIDID wird der Schriftmodus abgefragt. Die Zeile 11 druckt den 
18 INPUTBS Spring B, der in Zeile 10 abgefragt wird, aus. 
11 PRINTE1.TABECRI:CHRECHH RE | Dieses Programm läßt sich auch für den VC 20 umschreiben. 
12 Bs="":60T02 i Dazu müssen lediglich die Farb-Pokes in Zeile 2 entsprechend 

| | geändert werden. 

& 
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programme 


M EM 0 RY für Commodore 64 


Eine Denksportauigabe für alle Altersgruppen 


Memory ist ein Spielprogramm auf. 


dem Commodore 64, daß jedem ab 
Kindesalter bekannt sein dürfte. Sie 
haben die Möglichkeit, dieses weit- 
bekannte und immer wieder beliebte 
Spiel auf Ihrem C-64 zu spielen. Da 
die Spielregeln jeder kennt, be- 
schränken wir uns hier nur auf die 
Programmbeschreibung zur Eingabe 
und Handhabung des Spiels. Wird 
das Programm nach dem Laden ge- 
startet, muß man nach dem Aufbau 
des Titelbildes ca. 45 Sekunden lang 
warten. In dieser Zeit werden die 
Maschinenprogramme und alle 28 
Sprites eingelesen. Während nun 
eine Melodie erklingt, kann man die 
Namen der Mitspieler eingeben. Gibt 


REM 
"REM MEMORY 
REM --- 


REM 
REM 
REM 
REM 
REM 


a a ni 


SONSDOPUNMO 


20 GDSUB1200 


HEM nn 


man das Wort „Computer“ ein, ge- 
folgt von einer Ziffer zwischen 0-9, 
spieli der Computer mit entsprechen- 
der Spielstärke gegen Sie. Danach 
hat man die Möglichkeit die Steue- 
rung zu wählen. Dies kann entweder 
über die Tastatur oder den Joystick 
erfolgen. Wird über die Tastatur ge- 
spielt, verwenden Sie bitte die Cur- 
sortaste und die Spacetaste. 

Sobald man fünf gleiche Kärtchen in 
Folge gefunden hat, kommt automa- 
tisch der nächste Mitspieler an die: 
Reihe. Diese Regelung wurde ge- 
wählt, damit der Computer bei Spiel- 
stärke 7-9 am Ende nicht alles ge- 
winnt. 

Wer meint, daß der Computer selbst: 
bei Spielstärke O noch zu stark ist, 
kann in Zeile 8860 den Wert „50° 
verkleinern. Sind alle Kärtchen auf- 


{C} BY MARTIN SAUR-BROSCH 


47697 HOEPFINGEN 


gedeckt, ist das Spiel zu Ende, und 
der Punktestand wird bekanntgege- 
ben. Nach dem Drücken einer Taste 
‚fragt der Computer, ob man noch ein 
:S piel spielen möchte. Antwortet man 
mit „|, kann man neue Namen 
eingeben oder die bestehenden über- 
nehmen. 


Eingabehinweise: 

Ist beim Abtippen des Listings ein 
Fehler aufgetreten und der stößt bei 
der Bearbeitung des Programms dar- 
auf, gibt er die Fehlermeldung nicht 
wie sonst aus, sondern stellt zuerst- 
den Normalzustand her (wie beim: 
Drücken von RUN-STOP/RESTO- 
RE) und gibt dann erst die Fehler- 
meldung aus. Hiermit soll der Ärger 
mit den Sprites, die sich noch auf 
dem Bildschirm befinden, und der 
abgeschalteten STOP-Taste, die 
sich beim Editieren des Fehlers als 
ungünstig erweist, vermieden werden. 


#35 IFATHENFORI=1T02089: READFE&: NEXT: SP=24: SOSUBB300: EDOTO150 


27 REM nn 

28 REM MASCHINENCODE EINLESEN 

29 REM -—-- nn BaN= 

30 FORI=491521T049203: READQ: POKEI ‚9: 8=5+0: NEXT 

AO 1FG< >4878THENPRINT"LDATA-FEHLER IN ABSCHNITT "FEHLERMELDUNG" SEND 
50 GOSUBS300 

&0 READA:READAS:S=0: IFA=-1THENG=41214:60T0100 

70 READB: IFO< -1THENPOKEI ‚Q:9=8+0: I=1+1:60T070 

80 IFS=ATHENSO 

90 PRINT"LDATA-FEHLER IN ABSCHNITT ""A£" 

935 FRINT"EPRUEFSUMME="S,"RRICHTIGE aan: 

964 FOKES6334,1:5Y549190: END 

97 REM mn nenne 

978 REM SPRITES EINLESEN 

99 REM -—------- nn 

100 READA: S=0: FORI=OT062: READU: IF@=-1THENFRINT"LZUWENIG" 5 :50T0140 


110 POKEG+SP#44+1,0:5=5+0: NEXT 

120 READQ: IFO=-1THENI1SO 

1360 FRINT'LZUVIELE"S 

140 PRINT" DATEN BEI SFRITE"SF+1:G0T09&4 

150 IFS<>ATHENPRINT"LDATEN-FEHLER BEI SFRITE"SP+1:50T095 
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160 
170 
177 
178 
179 
190 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
287 
288 
289 
290 
300 
305 
310 
320 
330 
340 
350 
397 

‚398 
299 


420 
425 
42& 
430 


445 
430 
475 
490 
490 
S00 
305 
S10 
S2o 
530 
40 
nd 
ZAO 
>70 
90 
370 
soo 
610 
26 
625 

627 
528 
5297 
830 
635 
40 
28 
695 
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sfrzöP+ls IFSP=25THENG=-768 


IFSP< >28THENLOO 

REM ------- 
REM BILDSCHIRMAUFBAU 
REM -------- 


FOKES&S334 ,1: POKES 2245 ,FEEK (45): POEESS245 „FEEH 46) 

FOKEV+17, O3 FOKEV+Z1, 7: FDEEV+23,7: POREV+29, 7: FOKEV+77 „7: FOKREV+26,,0: FOKESASO,O 
FORI=0T02: FOKRE2040+1,13+71: NEXT 

FOFES3281,6: PRINT" POKETSL „‚O: FOKE2S2, 19072: POKE2Z024 „4: SYS49204: FOKEZ,0O 
IFPEER (V+45) =PSSTHENLOOO 

Z=20: ZZ=11: 50U5UB9F50 

PRINT"33(0)3317853 EY MARTIN SAUR-BROSCHD NAMEN: " 

FRINT"H=i. 8 4 Mn . . [1 a — . Li} 

GOSUBB200 

FOR1=1947T01983: PDRKESI+I,15NEXT 

GDTD1000 

REM un 

REM SPIELBEGINN 


PRINT"LOK. ES KANN LOSGEHEN ID" 

GOSUBZ&00: POKESI+1, 140: FOKESI+S , 2; E=3: L=0 

IFFEEK (V+459) =Z33THENSSO 

FORI=0T09: FORI=ETBLSTEFSEN {LK}: X=1[1rJ8% 16: SOSUBSPYOO: NEAT Jr J=KıkE=LıL=J:NEATI 
7=16: GOSUBYIO: Z=10: BOSUBB1O0 

K=7:L_=0 

FORI=4T0O05TEP-1: FDRI=KTOESTEPSGN {L-K3 4 X=I#15+J: GOSURBPYOG: NEXTI 
J=Kık=LıL=J:NEXTI: Y=5: 60SUB1500: PRINT" 3 : GDSUBBAOO 

REM -7----- 4 

REM HAUFTSCHLEIFE DES SFIELS 


SGSUBB400: IFMA=STHENGOSLUB1 400: EBOTOSSO 

Di=0:B=0:ıX=-1:X5=%: Y=X: GOSUBST7OO 

FOKEV+27 ,O:FOKESI+S ,&: FOKESI+6 ,Os FX=0: FY=0: IFX+Y+L=OTHENFX= 1 
C=0: KE=PEEK (V+1@)ı VE= FEEK(VA21) : D=Bx2 

FOFESI+1,40: FOKEV+21 „VE 

FOKEV+16, XEHINTS(PXRr 324243 7/2583 8 (464) : POKEV+44+D  PX#32+24ANDESS 
FOKEV+S+D ,PY#324+50: FOKEV+41+B ,0- {F {PX ,PY}=0) #2 

POKEVY+21 „VE+4+4*B 

X1=0: Yij=0: PÜKE178,0: ONFEEK 12037+8P) BSOSLB?800, 2810, 27850 , 2700 
POKESI+4 ,0:POKESI+1,10: POKESI+4 ,23 
FA=FATXL:PY=SPY+Y1 
IFFX<SOORPX>FTHENFI=PX-10#X1 
IFFY{OORPFYS>ATHENFY=PY-GeY1 
IFFX=XS4ANDPY=YSANDE=OTHENZBO 

IFX17 >OORY1<{ >OTHENA43O 
IFF(PX,PYI=OTHENA42O 

X=FX: Y=PY:5DO5SUBE000: B=B+1: IFB< "2THENGZ 
IFES=BITHENGOSUBTZOOS SE (SPI=SSC (SPI +15 G0T0&20 
GOSUBZ200 

MA=O 

FRINT" EB": GOSUBSAOG 

SF=SP+1: IFSP=3THENSP=O 

IFFEEK (Z037+5P) =OTHENSSO 
FRINT"EM" 2 SOSUBSA00 

GOTO42O 

MA=MA+i 

IFYUSTSTHENAOO 

REM --- 

REM SPIELENDE 

REM --—-—----- 

GOSUBS400: GOSLBA700: PRINT"R" : GOSURBSAOO: Rr= "IEBABERINE" 
FRINT'"SESPIELENDERS" = GISUB1450: FORW=1TOFOOO:SNEXT 
GOSUB1400: POKESI+&, 240: POKESI+4,33 

FRINT"S 

7=20 : GOSUB9G50: Z=4: GDSUBRLOO 


Ceompupe mip 27 


Programme 


450 
[21218] 
670 
530 
870 
7090 


FORSFP=0T102: IFSC (SP) =OTHEN?OO 
2=20: Z2=2+5P#1 3: GOSUBFSO: PRINT" ——— Lt" 
FORX=1TOSC (SP) s IFX=1BTHEN?OO 
GOSUBSSOO 
NEXTX 
NEXTSF=POKE198,0 
GETAF: IFAf="" THEN?77O 
=24: GOSUBISO: PRINT" RNDOCH EIN SPIEL (J/N) TE ij" 
GETAF= IFA&="N" THENSYSAS12G 
IFAF< >"J"THEN?FO 
Z=243 5DSUB950: PRINT"EMIT DEN GLEICHEN SPIELERNAMEN {J/NI TS" 
GETAF: IFAS="N" THENPOKEV+45 O0: RUN 
IFAF< >" IT" THENS?O 
FOKEV+45, 45: RUN 
REM --—----- m 
REM NAMEN: ZURÜUECKHOLEN 
REM -=--- un... 0.0 
FORI=OTGZ:FORJ=1T09: BF (T}=B$ (1) +CHRS (PEEK (496644181343) +64) =NEXTI,I 
G=PEEK (7031}750 
GE0SUBS700: POKEY+17 ,27:560TO1A00 
REM =... un nn 
REM - CURSOR FOSITIGNIEREN 
REM —---—--- mn nenn 
FOKE214 7: POKE211,223 ZZ=0: SYS59540: RETURN 


1000 GOSUBBOOO 


1010 
1011 
1012 
1020 
1030 
1040 
1050 
1040 
1070 
1080 
1090 
1097 
1098 
1099 
1100 
1107 
1108 
1109 
i110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1197 
1198 
1199 
1200 
1210 
1211 
1212 
1220 
1225 
1230 
1240 
1250 
1266 
1220 


FORI=1T071:READTZCILIINEXT 
FORI=1T0177: READMIZ II) =NEXT 

FORI=1T0127:READMZACTI NEXT 

FORI=4TD1Z1:READM2KCI)SNEXT 

IFPEEK (V+45) =253THENBOSUBF00: GOSUB2500: FOKE214 , 22: G0T02430 
FOKE2,1 

GOSUE1430 

FOREV+17,27:FOKE198,0 

REM -—----—- ----- 000 

REM SCHLEIFE MELODIE+NAMENSEINGABE: 

REM men m nn ; 

FORI=0TD131: 505UB1110:50SUB2000: NEXTI:GOTD1100 

REM --- mm nn 0 

REM TONERZEUGUNG FUER MELODIE 

REM ---------—- 4... 2 

M=MIACH) SE IFM=SOTHENA=S1E-4: W1=45:60T01130 

FR=TA CM) =FO=FRAND2SS: FISFR/ZS8: W1=64 

M=M2Z (12 z IFM=OTHENA=1E-4: W2=33: S0OT01150 

FR=TA(M) : F2=FRAND2SS: FI=SFR/2Sh 2: W237 

M=MSAUTD) 3 IFMSOTHENASIE-4: W3=65: GOTO1170 

FR=TA(M) :F4=FRAND2SS: FS=FR/256: W3=64 

FOKESI+4 „WI: FOKESI+11 „WZ: POKESI+18,W3 

FDKESI „FO: POKESI+7 ,F25 FOKESI+14 ,F4: FOKESI+1 ,FL:FOKESI+8,FS:POKESI+15,F5 
PORESI+4 65: POKESI+11,33: POKESI+18,655 RETURN 

REM nun 

REM TITELBILD 

REM nn 

v-53248: PDKEV+26 ,05 POKESS280 „0: FOKES3281 ‚Or: POKEV+21,0 
AF=CHRE (8) +CHRE (1423 +" CIETeEe [GE | | EEE FE | O8 O2 HH ET." 
AS=AS+"LITIBERBISUDDEL GAMES & EC PU BFRESENT:" . f 
AS=AS+ "RE" +CHRS (13) +" ERRBEBRIERRE {og m nn SE 
GOSUB1400: POKESI+5 „6: FOKESI+1,,100 

IFPEEK (V+43) =254 THENPRINTAS:GOTO1280 

FORI=1TG124=B#=MID$ (AS, 1,1): B=ASC (B$) :PRINTBS; 

IF (B>32ANDB< 91} ORB>191 THENGOSUB1410 

NEXTI=ZPRINT. 

5OSUB1450 

PRINT"ILIITTABUSI "PM EMO R y" 
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I=45: IFFEEK (53245) =PEEK (45) ANDPEEK (53246) =PEEK (46) THENA=1: I=10 
FORW=1TG500: NEXT: FRINT"EREREBITTE CA."I" SEKUNDEN WARTEN. "= RETURN 
REM -—— mem 





51542724 FORI-0T023: POKEST+T „O: NEXT:POKESI+2A , IS: RETURN 
POKESI+4 „O0: FOKESI+4,129 
FORW=1TORND (1) #100: NEXTW= RETURN 


EOSUR1400: POKESI+5, 12: POKESI+12, 11: POKESI+19, 11: POKESI+Z , 10: FOKESI+17,2 
RETURN 

POKESI+4 ‚0: POKESI+1 „1: FOKESI+3, 15: POKESI+3,15: POKESI+4 ,65 

FOKESI+B, 3: POKESI+12,15: POKESI+10, 15: FOKESI+11,65: POKESI , 130: RETURN 
REM nn 

REM MELODIE 2 


REM mn 

GOSUB1430 
FORI=1T016: GOSUB1110: FORW=1TO1O:NEXTW, I 
GOSLIBS600: GOTO1400 

REM mm 

REM SP.WECHSEL NACH 5 PAAREN 

REM ---- 


GOSUB1 A400: FOKEST+12,9 

FORI=1T04: PRINT"B": GOSUBBAOG 

FORJ=1T05: POKEST+11 ,0: POKESI+11 , 21: FOKESI+1 ,I#10: FOKESIHA,I#4 
IFJ=3THENFRINT "3": GOSUESS00:NEXTI 

FORW=1TO&SO: NEXTU,,F 

NEXTI= RETURN 


X=0: P=PEEK (2024) : IFP< >BTHENd=Pı IF@/2< INT (R/2) THENZL1O 
ONJENTO2005 ‚2005, 2720, 2225, 2350, 2520 ,2530 

BETAF:A=INT (ASC (Ast) 70 

ONAZ (A) BOTO2200, 2020 , 2030 ,2040 , 2045 , 2950 

EOTO2ZORO 

FOKEER, 32: X=-1: 50102060 

x=-1:50T02080 

X=1:80702060 

FORW=1T030: NEXT: GOTOZOAO 

POKELR „ASC (At) AND6Z:= X=1 

FOKECR „PEEK (ERIORL2B 
IFXTHENFOKECR ,PEEK {CR} ANDLI7:CR=CR+X 
IFCR=197464+J8&13THENX=9: 60TOZ070 

IFCR=1954+1# 13THENX=-#: 60707070 

RETURN 

FOKE49S544 „RND (13*200+56 

FOKE780,, INT (RND{1) #4) #32+36: POKE7OL, INT (RND (1) #41 #32+68: SYS49554: 60702040 
J=3+1: X=1947+J%#13-CR: IFI{ZTHEN2O40 

POKECR „FEEK (ER) AND177: CR=2036: RETURN 

GOSUBBBOO: IFZTHENJ=&: RETURN 

C$=C1i$: 7=24: 27=4: Be EPRINTILE EINGABEN KORREKT (J/N) TO“ 
J=4: BETA$: IFA$="I"THEN2? 

TFAde NTHENGOSUDB20D:.d=OLER=1947 

GOTO204&0 

FOKEZ, 1: FOKE49544 , 180: P=PEEK (2024) 1: PDKEV+21 ,0:,J=5 
IFPEEK (2024) =PTHENZ?70 - 
FOKEZ „0: IFFEEK (1040) =32THEN224Q 

IFPEEK (1024) =Z2THENX=0: GOSUEBF1O 

FORX=44T072: G0SUEBF10: NEXT 

7=16: BOSUB750 

REM + men 

REM JOYSTICK/TASTATUR 

REM = 
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programme 


2300 
2310 
232 

A320 
2340 
2241 
2342 
2345 
235 

2370 
=2371 
2375 
2380 
320 
z400 
2410 
2420 
2430 
2440 
2450 
2450 
2478 
2500 
2510 
SIEO 
2520 
2540 
2550 
2597 
2578 
25737 
2600 
2605 
2410 
Pie 
Zu: 
Zug 
2450 
Pa 
270 
2575 
sB0 
Pie) 
27CG 
2710 
E72 
2730 
2740 
2750 
2780 
2775 
2797 
=778 
2797 
2600 
za10 
=Z920 
2821 
922 
2823 
2224 
28625 
293090 
z847 
=g48 
2847 


PRINT"REDRUECKE:B BF 1 JOYSTICKE/TASTATUR 
FRINTTAB(10)"F 3 > NAECHSTER SPIELER 

PRINTTAB(1O)"F 5 > ZUM SFIELBEGSINN 

FRINT'IE SEE"; GOSUBB200: Z=77: GOSUB9SO 

J=5:K=0: FORL=0TD2: FOKEROST+L,L+1 

IFB#(LI=NFORBE (LI =CFTHENPOKE2G37+L ‚4% (B$ (L}=C$) 3 IFU=RTHENK=L+1:60T07545 
U=1 

NEXT:BGOTODZS00 

BETAS:P=PEEE (2037+K) = IFAF="E" THENPOKEDOTF+K ,F+1+Z8 (P= 2) 
IFA PB" THENTIZBO 

ESK+1l+3# (KH) 

IFB& (CK) =NEORBS& IK) =SCFTHENZZTI 

IFAz="jE" THENDAIO : 

FRINT:FRINT "DER" 5: FORL=OTO2: IFL=KTHENPRINT "IE"; 
PRINTAFIFEER (20374 L) ) "Se"; 

NEXT 

RETURN 

PRINT"D"3 :K=3:6G05UBE2290: PRINT" u 

Z=12: GOSUB8100: PRINT" ’ 
FORI=0T02: FORI=1T09: Y=1906+J+1#13: VISASE (MIDE (BED) „J,1)) -&4: PDKEY,V1 
POKE#47755+Y ,Y12NEXTI,I : 


GOTODZFG 
RFUlI="JOYST.FORTIB "sAttDI="JoYST,PORTIM "Ar l2)="TASTATURE 
REIOI=" Be": A&LAI=AFtO) RETURN 


=24:77=8: BOSUBFSO: PRINT "EBRUNZULAESSIGE EINGABED" 
I=7:GETA$: IFAg< HUT THENAS="N" 
FORW=1T02O:NEXT 
GOTO2240 Ä 
REM -—------ 


REM SPIELVORBEREITUNGEN 


REM ---- 

GOSUB1400 

FORI=703T0766:FOKEI „O:NEXT:FORI=837T0894 3 POKEI ‚0: NEXT 
FORI=704T074&STEFZ: POKEI ‚255: FOKEI+1 254: NEXT 
FORI=833T0878STEPS3: POKEI ,1:NEXT 
POKE877 , 255: POKEB78, 255 

FORIS1T01&: READMIZLI) NEXT 

FORI=1TO1&:READMIA CH) NEXT 

FORI=1T01&: READMSZ (TI ENEXT 

FORI=1T025: READFA(IF:NEXT 

FORI=0TO13:READD (I) NEXT 

“=1:FORI=OTO9: FORI=OTDA:FIL,NI=KiK=K+1: IFE=TSTHENK=1 
NEXTJ,I 

FORI=OTOF: FORI=OTDA4:LI=RND (1}#10: L2=RND (1) #5 
KSF(I,DIEFCLJJISFtL1,LD:FtL1,L2)=K 

NEXTI,I 

SP=INT {RND(1)#3) 2 IFB£ (SP) =NSTHEN2730 

7=24: SOSUEFSO- Z=2: SOSUBALOO 

FORE2040 ,14: POKE2041 ‚15: POKE2042, 11: POKE2043, 11: FOKE2044 ,17 
POFEV+23 ‚28: POKEV+29 ‚28: POKEV+43 , 144 POKEV+37 ,7: FÜKEV+39, 10 
A=RND (-T1) 260108700 

REM —------- un 

REM JOYSTICKABFRAGE 

REM --- 

FL=1 

Li=FEEK (453) sL=PEEK (583204+PL) 

IF (LAND1}=OTHENY1=-1 

IF (LANDZ)=OTHENY1=1 

IF {LAND4I =OTHENX 1=—1 2 
IF {LANDBI=OTHENX1=1 

IF {LAND16?=QANDL1-PL.>-1THEN2339 

IFX1=0ANDY1=OTHEN2810 

FL=0: RETURN 

REM --- nn 

REM TASTATURABFRAGE 

REM 
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2050 GETNE 2899 REM nu nn nn 

2870 IFAs&="TTHENYI=-1 29700 IFC=OTHENZSOO 

2871 IFAS="B"THENYi1=1 2905 FORW=1TDSO:NEXT 

2872 IFAt="i" THENX1=-1 2910 IFXC=0THEN?FZO | 
2873 IFAF="M"ANDPEEHR (207) =2THENXI=1 2920 Xi=1:XLC=XC-1:RETURN 
2874 IFA=CHRE (223 THENRETURN 2930 IFYC=OTHENRETURN | 
2875 IFX1=0ANDY1=OTHEN2850 2940 Yi=1: YC=YC-1: RETURN 
2880 RETURN 2997 REM nn 

2897 REM ---- 297978 REM AUFDECKEN EINES KAERTCHENS . 


rd A Ad nn ann a a a a Fe en a mn arg nn m m a rl An ha 


.289B REM TCOMPUTERSTEUERUNG 29937 REM 








2000 POKEV+27 ,15:PX=PEEK (V+4+D) sPY=PEEE {V+S5+D) 

=010 IFX>7THENPOKEV+16,FEEK (V+1&}+17+B 

3020 POKEV+D,PX+3: POKEV+1+D,PY+4:FOKEV+B, PX: POKEV+7 ,FY 

3030 BI=F (X,Y)zBE=41151+64*BI:FOKEA9597 ,127+B864 

3040 FOKE251 ,BE-32768AND255: POKE7S2 ,BE/258:5Y547590 

3050 POKEV+ZB ,PEEK {V+28) - (SGN (FALBIII-1) /12-BI FA=ABSCFALBIDD 
Z060 FOKEV+39+B ,FAAND15: FOKEV+41+B,FA/18 

2065 FOKEY+21,31 

3070 POKEST+4 ,O:POKESI+5,0:POKESI+6 ,240: POKESI+1,0: FOKESI+4,17 
ZOB0 PO=10257X4#4+rY#180 

3090 FORI=1T02: FORI=0T06: FORK=OT03: POKESI+1, IrJ#K#3 

3100 FOKEFO+1-I+K#40,D(J) :FOKEPO+I+K*40,D17+J) 

3110 NEXTK,J,„I=:POKESI+1,0: IFB=1THENS130 

3120 POKEV+21 „5: POKEV+16 ,PEEK (V+16) ANDNOT 16: B3=B1: X5=X: YS=Y 

Z13G IFBS=BITHENZ7OO 

3140 EOTOE600 

Z197 REM -—-- nn | 
3198 REM ZUDETCKEN DER EAERTCHEN | 
=1979 REM —- em , 
#200 IFPEEK (54320) >1270RPEEK (56321) 4 >355THENZZOO I 
2210 X=-X+15*Y: BOSUBSIOT X=X5+16#Y5: GOSUBBFOD 

3220 RETURN 

2297 REM 

Z2G9B REM NACH DEM FINDEN EINES FARRES 

SGG REM —— mm nn 

3300 SDSURLSOO:C (X, V=3l:clks,YD)=R 

3205 POKESI+&,240: FOKESI+4,21:PDOKESI+15,50 

3310 FOKEV+21, 15: POKEV+27 ,0 

z320 Yi=PEEK [V+4) + (PEEK {V+15) AND1) #256 

2323 X2=PEEK (V+5) + tPEEE (V+16) AND) #128 

3327 Yi=PEEK {W453}: YZ=PEER W+7) 

3330 AY={Y1+Y2) 7/2: POKESI+1,Yi: IFAY=YITHENZSSO 

2340 FORI=VITOAYSTEPSEN (AY-Y1) POKEV+S, 1: YE=Y2-I4HVI1:POKESIHI,T 

3345 POKEV+7,YK:POKEY+1, Ir4: FOKEY+HZ,VYK+4: NEXT 

ZES50 AX=(X1+X2172: IFAX=X1THENS3S9IO 

3360 FORI=X1TDAXSTEPSENLAX-X1)%*2 

3270 XK=1AND255: XL=X2-I+X1: POKEV+4,XK: FOKEV+& ,XLANDZSS 

3375 PDKEV+L6, (INTCI/258)+CXL/1ZBANDZDI I #5 
3377 FOKEV ,XK+3AND255: POKEV+2,XL+3ANDESS 

3380 FOKESI+1,1/1.3 

3385 POKESI+15,300/1:NEXT 

3390 FIX, V)=O:FiX5,Y83=0 

3400 POKEV+21,5: Y=PEEK {V+1)-12: X=PEEK (V) -12: IFKLOTHENK=O 

3410 G0SUB1400:POKESI+4 „0: POKESI+5, 11: POKESI+1 ,S:FOKESI+4,12% 
3420 POKEV+23,5:POKEV+29 „5: FOKEV „X: FOKEV+1,Y 

=430 FORI=1T0150:POKEV+37 , I: FOKEV+Z8, 1: POKEV+39 , I: NEXT: SOSUBE700 
3440 POKEV+37 ‚9: POKEV+38, 10: FOKEV+22 , 28: POKEV+29 ,28= YU=YUH1 
3450 RETURN 

2497 REM 

Z498 REM ECOMPUTER-LOBIE 

3499 REM ------- 7 

=Z500 C=1: IFEITHENXO=11: YC=T1: 507029705 

=510 FORI=0TD9: FORJ=OTD4: LF=C (1, I) : IFER=SOOREF=31THENSSSO 


3320 I2=J+1 Weiter $. 34 
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Ah % Leserecke Meckerecke KA % 


VC-20 - nur 
Grundprogramme 


Endlich gibt es seit kurzem wieder die 


Zeitschrift „Compute mit“. Ich lese 
diese Zeitschrift sehr gerne. Leider 
stelle ich fest, daß für den VC-20 
Programme .für die Grundversion ab- 
gedruckt werden, jedoch nie für 
+8K/- oder +16K-Erweiterung. Die- 
ses finde ich eigentlich sehr schade. 
Ein Lob an den Software-Service, 
der funktioniert prima. 

Niels-Peter Seefeld, Norderstedt 


Redaktion: 

Eigentlich wollen wir nicht nur 
Grundprogramme für den VC-20 ver- 
öffentlichen, sondern alle Systeme 
berücksichtigen. Leider ist der VC-20 
mit Erweiterung nicht sehr weit ver- 
breitet, so daß uns die entsprechende 
Software auch nur sehr begrenzt zur 
Verfügung steht. Im übrigen sind ja 
alle Grundprogramme auch auf dem 
Erweiterungssystem funktionsfähig. 
Das Lob an unseren Software-Ver- 
sand haben wir weitergeleitet. 


a kr k ı* x 
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Anwender- 
programme 


Ich bin begeisterter Leser Ihrer Zeit- 
schrift. Ich besitze einen C-64. Gut 
finde ich, daß Sie nicht nur Spiele, 
sondern auch "Hilfsprogramme veröf- 
fentlichen und über Neues berichten. 
Es wäre sehr schön, wenn Sie in 
jedem Heft ein Programm wie den 
„sequenzer“ oder „Autostart“ und 
natürlich zwei Spiele abdrucken wür- 
den. Was besonders gut ist, der Preis 
ist nicht so hoch. . 

Uwe Ohler, Warmbad/Villach 


Redaktion: 

Unsere Redaktion ist bemüht, alle 
interessanten Neuheiten für Commo- 
dore- und Schneider-Besitzer zu ver- 
öffentlichen. Natürlich ist es unser 
Bestreben, neben diesen Neuigkeiten 
auch gute Spielprogramme und An- 
wendungsprogramme abzudrucken. 
Wir sind der Meinung, hier eine gute 
Mischung gefunden zu haben, und 
weisen darauf hin, daß die Rubriken 
Werkstatt und Tips & Tricks von allen 
Heimcomputer-Programmierer  be- 
achtet werden sollten. Auch in Zu- 
kunft werden unter diesen Über- 
schriften interessante und wissens- 
werte Hilfen für den Umgang mit 
Ihrem Computer veröffentlicht wer- 
den, 


ak ı ık x %* 


Schlechter Druck 


Der Inhalt Ihrer Zeitschrift „Gompute 
mit“ ist sehr gut. Ich lese jede Ausga- 
be. Aber das Schriftbild der Program- 
me ist eine einzige Katastrophe. Die 
Zahlen und Buchstaben gehen ja 
meist, aber die zusammengepferchten 
Symbole führen meist zu Abtipp- 
Fehlern. Andere Verlage sind hier 
mehr bemüht, dem Leser ein ein- 
wandfreies Druckbild zu übermitteln. 

Günter Hager, Hof 


Redaktion: 

In diesem Punkt der Kritik müssen 
wir Ihnen voll zustimmen. Wir haben 
aufgrund vereinzelter schlecht lesba- 
rer Listing-Abdrucke sofort reagiert. 
Bereits die Ausgabe Nr. 7 von „Com- 
pute mit“ wurde mit neuem Druckver- 
fahren ersteilt, und alle Listings sind 
hervorragend lesbar und sauber im 
Druck. Wir sind der Meinung, daß 
Sie als Leser ein Recht auf fesbare 
Listings haben und werden in Zu- 
kunft nur Listings mit Super-Druck 
veröffentlichen. 
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Loben kann jeder, 
ich meckere!!! 


1. Der Drucker, der die VC-20-Li- 
stings druckt, ist eine Zumutung. 
Die Sonderzeichen sind kaum zu 
entziffern, 

2. Wie wäre es einmal mit Program- 
men für den VC-20 Vollausbau 
(evil. mit Prüfsummen)? 

3. Auch ein VC-20-Abenteuer wäre 
toll, 

4. Ich glaube, großes Interesse fän- 
de auch eine Gegenüberstellung 
von Pokes VC-20/VC-64. Mit 
dieser Könnte man sicher gewisse 
Programme leichter übersetzen. 

Im übrigen werde ich Ihre Zeitschrift, 

solange sie den VG-20 nicht vergißt, 

weiterhin beziehen. 
Rudolf Limburek, Wien 


Redaktion: nn 
Die Redaktion ist sehr erfreut, einen 
kritischen Leser gefunden zu haben. 
Zu Ihren einzelnen Punkten: 

Das Thema Drucker wurde bereits 
behandeit, 

Zum Problem der Systemerweiterung 
wurde ebenfalls schon Stellung ge- 
nommen. 

Sicher wäre es sehr interessant, 
Abenteuerspiele zu veröffentlichen, - 
jedoch ist das Angebot an solchen 
Programmen sehr spärlich. 

Eine Gegenüberstellung der Pokes 
des VC-20/VC-64 ist zwar schon oft 
erfolgt, wird aber von uns in den 
nächsten Ausgaben noch einmal auf- 
gegriffen und behandelt, 


KIIRKKEKKIKKK 


Möchten auch Sie Anregungen 
und Kritik an unserer Zeitschrilt 
„Compute mit“ äußern, schreiben 
Sie uns. Wir beantworten jede 
schriftliche Einsendung, soweit 
wir dazu in der Lage sind. 
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Spaß an Mathe mit dem C-64 


von Holger Danielsson 

Ein Buch, daß sich an alle Schüler 
und C-64 Benutzer mit Grundkennt- 
nissen wendet, die 

- für Berechnungen immer noch ei- 
nen Taschenrechner einsetzen,’ 

- Programme zu den zentralen 
Mathe-Themen der Sekundarstufe 1 
suchen, 


- ausführlich und sorgfältig doku- 
mentierte Programme suchen, die 
schneil zu verstehen und daher leicht 
den eigenen Vorstellungen entspre- 
chend abzuändern sind, 

- wissen wollen, wie man das Com- 
modore Basic um eigene Befehle er- 
weitert, 

- Programmiertricks suchen, die 


leicht in eigene Programme übernom- 
men werden können, 

- eine vollständige und äußerst 
schnelle Grafikerweiterung besitzen 
möchten, die keinen Basic-Speicher- 
platz belegt. 

Alle, die Ihren 6-64 in Zukunft auch 
im mathematischen Bereich einsetzen 
wollen, sollten nicht auf dieses Buch 
verzichten. 

Sybex-Verlag, Düsseldorf, ISBN 
3-88745-072-8, Preis 32,- DM 


es! Das ist ja Super! Neu 


Wir haben unser Super-Service Kombi-Ab0O erweitert. 


Ab sofort erhalten Sie 


12 Exemplare „Compute mit“ + 12 bespielte Disketten 


für alle Commodore- und Schneider-Systeme. Somit haben auch alle Disketten-Besitzer die ROglicnKelt, 


Alte Abonnenten, die bisher ein Kas- 
setten-Abo besitzen, aber jetzt lieber 
ein Disketten-Abo hätten, haben die 


Möglichkeit des Austausches. Unser 


Super-Service 


| Kombi-Abo 
„Compute mit ...“ 


Straße / Nr. 


„Compute mit“ im Abo zu beziehen. 


Abo-Service wird die bereits geliefer- 
ten Kassetten mit dem neuen Rest- 
Abo für Disketten neu verrechnen. 
ihnen entstehen durch diese Art der 


Verrechnung nur die tatsächlichen 
Mehrkosten für Ihr Disketten-Abo. 
Vergessen Sie nicht, Ihr System an- 
zugeben. 


PLZ Ort 


Ich wünsche folgendes ABO: 


EI 12 Exemplare „Compute mit ...“ 
zum Preis von 


12 Exemplare „Compute mit ...* 
zum Preis von 


U] Commodere 
DO) 12 Exemplare „Compute mit...“ 


Bitte ausschneiden 
und senden an: 0 


Tronic-Verlag GmbH 


Postfach 41 
3444 Wehretal 1 


zum Preis von 
gegen 


DI Rechnung 


Abonnement- Kündigungen: 


El Vorkasse 


+ 12 bespielte Kassetten 


97,50 DM (Ausland 310,- DM) 


+ 12 bespielte Disketten 
187,50 DM (Commodore) 


ID) Schneider 
ohne bespielte Kassetten 


264,50 DM (Schneider) 


30,- DM (Ausland 40,- DM) 


Datum, Unterschrift 


6 Wochen vor Ablau des Jahresabonnements. Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag widerrufen! Zu Wahrung der Frist genügt 


die rechtzeitige Absendung des Widerrufes. 
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Programme 


3530 


Dr 
3535 


3540 
355 

3350 
3570 
35380 
3397 
3578 
35997 
300 
3420 
3630 
37009 
7997 
7978 
7997 
8000 
8010 
8015 
8020 
930 
8100 


FORITI=IT09: FORIJ1=J2T04: IFCLTA „ILS SCFTHENNEXT: 32-0: NEXTI1:GOTOSSSG 
IFI=XSANDI=YSTHENXC=11: YE=11:B0T02910 
Ci=1:X0=1: YC=J:60102910 

NEXTI,I 

XC=INT (RND (13810): YE=INT (RND(1}%5) 

IF (XC=XSANDYE=YSIORC CXC,YEI< SOTHENZSSO 
SOTOZF1O 

REM — 

REM COMPUTER VERGISST 

REM nm 

FORI=0T0F:FORI=0TQ4: VE=V (1 DUB) EVIL,D=VB 
IFRND (1) >VGANDE(T,IICHSLTHEND CI, FI =0: vi, N=0 
NEXTI,I 

Ctx „VISFCXYIEV CK VISRNDCD+HLERETURN 

REM -—— mm nn nn 

REM VARIABLEN/FELDER-DEFINITIONEN 


ER=1947: FORI=1 T09: NE=NE+HCHRE (94) ı NEXT: ECE="LCOMFUTER"IC1FSCH 

DIMTA (213 ,„M1%X 1193) „M7%4 (191) „M3%1191) ‚A4t127) 

Aktb)=1: ARUNSZEAZ(TEI= S:A%t1a)= =4: ABI =S:FORI= 18 TOAS:AZIDI=6: NEXT 
DIMF (9,5) ,0(9,5 ,v(9,5) ,FA(25) ,Di139) 

RETURN 

FORI=1TDZ= FRINTAF {0} 3 3NEXT: RETURN 


3199 » 


BZ00 


3299 x 


9300 
9397 
8378 
3377 


8400 Z= 


8410 
29420 
4197 
B478 
8497 
BSOO 
9310 
8520 
83597 
3575 
5377 
BSS0O 
S&10 
SA20 
8430 
BAAO 
8597 
8678 
5697 
9700 
3710 
8797 
89778 
09797 
8800 
8605 
B210 
8820 
8930 
2640 
BES0 


| 3840 


3870 
58879 





PRINT" pH RETURN 
SY549152: FOKESA334 „O0: RETURN 

REM mu 

REM PUNKTESTAND-ANZEIGE 


24: GOSUBFSO 

FORI=0T02 : IFBECIISSNETHENPRINTTAR (SHIT) ; "W"SCIId 
NEXT: PRINT"EI" RETURN 

REM 7... 

Den SCHLUSSSRAFIK 


FOKESI+1,100: Z=17-X: Z7=448F%13: BOSLMISO 
FRINT" BEE A „1 Li} REES gi" RE Er} a a. I 
PFOKESTI+1 Or RETURN 


REM RAHMEN UM SPIELERNAME 

HEM +------ nom 

Z=26: BOSUBF50: TA=7+5Pr*13 
FRINTTABITA+RO)" 
FRINTTAB{TAI" | "SPE(9)" "5 
PRINTTAB(TA+40) " L—— ug" 
RETURN 

REM -—— um u... 

REM SFRITES ENTFERNEN 

REM ---------- on 
FOREV+21,0:2FORI=OT09: FÜKEV+I „OrNEXT 
FOFEV+1& ,0: FOKEV+28,0: RETURN 

REM -—----- nn nn mn 
REM KONTROLLE DER NAMENSEINGABE 
REM mm menu nn nn 
7=0: E1=0: E2=0:5 FORM=OTOT: Age" 
FERN=1TO9: AFSAF+CHRE (PEEE (19A6+ME#1 IHN) +64) ıNEXTN 
IFAS=NFTHENE1=F1H1 

IFLEFTE (AF „BI =CHTHENEI=E741: SOSUERBSO . 
BEIM) =A&ı NEXTM: IFE1LSIOREIF1THENZ=L 
RETURN 

GF=CHRE (ASCK(RIGHTEIAE, 1373-64) 
G=(9-VAL GE) I 7/50: POKEIOTI „Gr5i 
C18=A$: RETURN 


Compute mib 8/85 


Programme 


POKESI+4 „0: POEESI+4 ,33:W=1E-4 
FOKE254 ‚4: POKE780,X7S8Y549340: RETURN 
REM -------- 
REM ACH,DU SCHRECK !! DATA-ZEILEN 


REM FEHLERMELDUNG 


DATA159,11,141,0,3,159,192,141,1,3,96,138,16,3,76,118,164,134,2,32 162 
DATA253,32,24,229,32,38,192,169,1,131,134,2,168,72,76,58,163,32,21,253 
DATA169,139,141,0,3,169,227,141,1,2,96 


DATA1OZ21 „HINTERGRUND | 


DATA120,169,83,141,20,3,169,192,141,21,3,169,0,141,18,208,173,17,208 


: DATA41,127,141,17,208,159,129,141,26,209,98,96,172,75,208,141,25, 208 


DATAN48,7,172,13,220,88,76,128,192,177,18,208,201,210,176,16,169,14,141 
DATA32,208,141,33,208,159,210,141,18,208,76,188,254,167,10,141,32,208 
DATA141,33,208,169,0,141,18,208,75,189,254,—1 


DATA27B24 ,ELOCEBRAFIE 


DATA169,4,133,254,177,251,22,188,192,230,251,185,251,201,50,240,7,201 
DATA100,240,3,76,114,193,208,272,7,56,240,7,233,50,133,251,76,116,193 


=2 DATA167,100,229,251,133,251,169,6,141,232,7,76,116,193,160,0,170,41,15 


TOSB 
2037 
7040 
2041 
7042 
7045 
7044 
7049 
7050 
9051 
7032 
903 
7054 
9055 
20597 
. 9050 
7061 
902 
7083 
os 
7067 
9070 
59071 
7072 
7073 
7074 
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3 DATA10,10,133,253,158,41,240,141,209,192,162,10,163,257,24,105,48,133 


DATA253,144,2,250,254,202,208,242,24,177,252,93,100,193,145,253,2372,200 
DATA152,41,4,240,242,152,105,36,168,172,1&0,208,234,96,0,0,0,0,0,0,0 
DATAO,0,0,0,0,0,0,16,1,32,17,2,48,33,18,3,64,49,34,17,4,65,50,35,20,5 
DATA66 ,51,36,21,6,67,52,37,22,7,68,53,38,23,8,69,54,39,24,7,70,53,40 
DATA25,71,56,41,72,57,72,0,64,73,9,1,16,48,55,72,57,25,8,2,17,32,39,66 
DATA71,56,41,24,7,3,18,33,50,67,70,55,40,25,6,4,19,34,51,68,69,54,39 
DATA22,5,20,35,52,53,38,21,36,37,128,128,128,199,1728,128,178,199,128 
DATA128,128,199,207,207,207,218,206,39,208,206,40,208,206,41,208,76,52 
DATA234,165,2,240,249,165,182,56,2232,40,132,1872,176,240,160,0,76,127 


3 DATA192,150,0,140,15,208,142,1,208,142,3,208,142,5,208,141,0,208,24,105 


DATA48,141,2,208,105,45,141,4,708,144,5,169,4,141,15,208,96,-1 


DATALFBR,SPRITECOPY 


DATA198,1,160,63,177,251,153,63,3,136,208, 248, 220,1,95,-1,-1,—-1 
REM SPRITE 1 


DATART SA san 704199160445 254,,5,255,128,7,255,192,26,170,176,7,255,192,3 
DATA2SS,128,,130,,3,255,128,7,215,172,15,255,224,14,56,274,24,124,48 
DATA16,18,16,32,16,8,22,16,8, 208, 108, 22 4 1 1 


REM SFRITE 2 


DATA72Z23,21,1,50,64,68,4,,170,,2,170,128,10,170,160,47,170, 248,63, 225,252 
DATA189,,235,126,175,235,250,170,170,170,170,170,170,170,190,170, 185 
DATABS,90,149,95,86,144, ,6,148, „22,155, ,70,41,55,104,42,85,168,10,170 
DATA160,2,170,128,—1 


REM SPRITE 3 

DATAAZSZ 4947979793373 33004,4,255,16,5,235,80,5,259,80,4,255 102 y 231g yy 281 
DATA, 2219, 5,3219, 232351, 332314 ,6,255,144,6,255,144,6,255,144,6,255,144 
DATA, ay37771 e 

REM SFRITE 4 
DATA3044,,40,,,170,5,2,170,128,2,170,128,10,179,160,10,170,180,10,70,80,7 


DATA105,98,10,101,160,2,85,129, 3150, 4320, 53148, 37,20, 3320,3,20,4,20 
DATA, „85, ,5,89,80,20,1,20, 343-1 


| Compure mik = 


Programme 


7079 3 
7060 REM SPRITE 5 
9081 : 


7082 DATA9019, ,,,3,255,192,15,255,252,63,259,255,42,171,255,42,170,255,43,250 


085 DATA191,43,242,188,43,254,176,43,254,128,43,250,252,42,171,255,42,170 
7084 DATA2S5,43,250,191,43,242,191,43,242,191 ,43,242,191,43,242,171,43,194 
9085 DATAIBB,43,2,176,40,2,128,-1 

5089 3 

9070 REM SFRITE & 

9061 : a 
90972 DATA3667 449239716, 513,80,,1,148,,1,85,,1,88,,1,80,,1,112,,1,112,,1,240, 
20953 DATAS, 252, 35,252, 459,93, 323,73, 123,252, 121,252, ,21,240, ,85,240,1,85 
9074 DATAZ40,5,87,212,85,84,20,-1 

3099 i 

2100 REM SPRITE 7 

9101 : 


9102 DATASEOB, s gassnon roman nn 235248, 512,132, ,48,150,,64,193, ,255,255,24% 


37103 DATAZ24 ‚255,254, 206,127,135,209,127,51,985,127,75,17,374,14, 48a a3 5 
9104 DATA,4 37, —1 

7109 3 

97110 REM SFRITE 8 

7111: 

9112 DATAZ3IO, yyyr0 713417316, 4, ,60,20,12,68,16,7 ‚20,21,177,4,20,59,16,4,127 
2113 DATABS,5,123,96,1,171,128,10,59,8,,171,1&0,10,83,,,187,136,2,63,32 
7114 DATAS 12 253 int. 

9119 : 

97120 REM SFRITE 9 

7121 : 


7122 DATAAB49, „yana219339379929224,,15,252,30,63,255,34,127,255,742,248,31 ,252 


F123 DATA=47 ,225,255,248,31,252,127,255,242,63,255,34,15,248,30,2, 96, „1 

124 DATALI2 gas srn00 nn 1 

7129 : 

7130 REM SFRITE 10 

1351: 

7132 DATALZIP aynmsnsssann 7700000003045, 551,255, 252,51 ,128,248,51,472 
7133 DATASO, saansnnnsnn anna ann nn. 

7139. 

7140 REM SPRITE 11 

7141: 


7142 DATAAFSZy san 0379333397733,170,170,128,175,254,176,175,190,158,174,174,188 


9143 DATA175,190,191,175,254,170,170,179,170,170,170,170,165,170,70,5,,B0 
7144 DATAS, SO ass nn 

7149 : 

7150 REM SPRITE 127 

siS1: 

21532 DATAZF10, 414463, 43255,192,1,128, 224,2, 496,4, 29646, 396,2, 3192, 1,1, 1285 11 
9175 DATA128, 5,3, 2433973633 3143 3328, 4,5653, 76, ,14,192, ,25,128,,25, 225,240 
7154 DATA1S5,31,192,-i - 


9159 : 


?71&0 REM SFRITE 13 
g91#1 x 

7152 DATAS470,,4128,,74333143332143,52,128, ,63,128,,125,192,,113,192, ,59,128, 
9153 DATAZSS,192,7,253,224,15,255,240,55,177,48,96,254,78,1,254,6,1,255 

7164 DATA,1,255,128, ,255,128,,127,240,,31,238,,,127,-1 

7149 : 

7170 REM SPRITE 14 

7171: p 

7172 DATAL1220,85,85,85,85,85,35,85,85,85,85,85,85,85,85,85,85,85,85, 255,255 
7173 DATA233 255,255, 255,255,255,755,755,255,255, 255,255, 733,255, ,255,295,255 
917% DAT 255,235, 259,255,255,170,170,170,170,170,170,170,170,170,170,170 
2175 DATA170,170,170,170,170,170,170,170,170,170,—1 

9177 ı 

7155 REM SPRITE 15 

9181 ; 

G182 DATAS190,,24, 3324, 4,,60, 3,50, ,,126,,,126, 43,126, ,65,255,252,31,195,248,15 
71853 DATA195,240,7,129,224,1,129,128,1,195,128,1,255,128, 3,259, 192,3, 231 


Gompupes miP 
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7 
> DATA63,255,255,31,255,255,63,255,255,127,259,254,2553,255,2 


Programme 


DATA172,7,195,224,7,129,,274,6,,96,12, 24844933 
REM SPRITE 1& 


DATA2S61,,15,,1,254,,15,1,224,56,124,56,96,120,12,156,16,34,190,124,250 
DATA173,155,5, „24, 7 „2A, y „eh, Pi Pe F E ‚d, ..8, „‚12, 3 „A, y „As y ‚75, 7 Pre] -' 
DATA, 433-1 


REM SFRITE 17 


DATAFEE2 44437315, ,240,31,129,248,,68%2,731,252,127,221,254,127,255,254,127 


: DATA2SS,254,127 ,255,7254,63,259,252,31,255,248,31,259, 248,15, 255,240 


DATA7),259,224,2,255,192,1,255, 128, 5,255 2 1125 5 1 04 4, 1 As as 1 


REM SPRITE 18 

DATA7977,,60,, 3760,64, ,255,64,,255,64,3,235,192,3,235,192,15,235,240,15,255 
DATA24Q ,63,255,252,63,255,7252,255,255,255,95,85,85,85,05,85,90,149 
DATASS,90,149,165,90,147,165,70,149,165,95,95,165,85,85,165,85,85,165 
DATABS, 85,165, -1 


REM SPRITE 17 

DATAISSS, 4 43035,42,170,,170,1689,2,170,165,10,170,149,42,170,85,170,169,85 
DATA255,257,85,255,253,85,255,252,95,2559,257,95,255,252,85, 235,255 

DATABS ,235,253,89,255,253,95,255,253,85,2595,253,84,255,253,90,255,25Z 
DATAS4 ‚255,253, ,—1 


REM SFRITE 20 


DATASGFE, 7741,128,,,96, 5524, 47631717128, 4,964 4 ,28,40,57,195, 255,255, 255 
DATAZEC, ‚81,154, ,113,128,126,1,158,90,121,179,107,205,172,126,181,172 
DATA,181,179,,205,158,52,121,128, ,1,255,255,255,-1 


REM SFRITE 21 


DATA?350,170,170,170,170,170,170,170,170,170,170,170,170,165,85,90,165,85 
DATAFO,165,85,90,165,85,70,165,255,90,165,255,90,145,2553,90,165,255 
DATA90,165,255,90,165,85,70,165,85,90,165,95,90,165,85,90,170,170,170 
DATA170,170,170,170,170,170,170,170,170,—1 


REM SPRITE 22 
127 ,955,05 


DATAGSAT s gaa57731531 128545192, 1,274, 4,240, , „248,255 Fr 
2,,,248 


255,252 
255,25 

DATA, 2240, ,3224,4,192, 5,128, 343-1 

REM SPRITE 23 


DATAS465,1,255,,7,255,192,7,237,224,26,73,42,49,,24,161,,138,227,129,205 
DATA193,24,134,192,36,6,192,36,6,172,102,6,64,176,4, 100, „68,39, 255 
DATA204 ,49,131,24,24,124,49,8,,32,6,,192,1,199,,1,255, ,241,128,—1 


REM SFRITE 24 


DATAABSO, „160, ,2,168,,10,168,,42,170, ,42,42, ,40,10, ,1&8,,170,168, 4170, 160 
DATA,158,160,,150,160,,,160,,240,160, ,252,168, ,255,168,,255,420,10, 
DATA42,42,,42,170,,10,1568,,2,158, ,,160,,—1 . 


REM SFRITE 25 

DATASSSO 424754349553 3955,13,95,192,1,95,192,5,95,240,5,95,240,21,107,252 
DATABS, 107 ,255,299,233,85,63,257,84,15,245,80,15,245,80,3,245,64,3 
DATA245,64, 5,245, 4,4245, 49245, yo 7 37 1 i 


REM SPRITE 24 


Gamsupe miP 37 


programme 


9271 3: 


9292 DATA2063,,128,128,,129,128,,130,128,1,36,128,1 


„26, 128,1,41,4 5371,17, 


97293 DATAZ,1,28,2,1,34,100,2,36,132,2 56, 136,2, 113p11241, 142g gaaaaasınn 


7294 DATA, aassayn0,n1 
2299 3 

7300 REM SPRITE 27 
7301 3 

F262 DATA7ZI 
7303 DATA1,16,135 

7209 3 

7310 REM SFRITE 28 
11: 


7217 DATA17ZT za aayyna20 397997 1959597 241,1808,16,115 
9313 DATAS,32,129,3,224,,,20, 4,240, „1,64, ,2,64 


9997 : 


7778 REM DÄTEN FUER MELODIE 


3997 : 


100006 DATA1250,1403,1575,1869,18 
10010 DATA4455,5001 ,5613,6301,6576,7492,B411 


10020 DATA12 


10050 DATA,14,,16,,19 43443320499 777184517, 516 
10031 DATAylbyaaan 417 aypnnnläya iin ny ih 
10032 DATA14, 512,512, 4445,13 
100640 DATA, san 234y473743593339310,97, 4,7 
10041 DATA2, , 454337 Spy 31345452 
10042 DATAT 54133437193 273% 


10043 DATA4,Sy ya si 


12.772 
TIIITPPITIITIISEIITH TEIL I 


7,17,17,8,33,17,8,1,17,24,129,17,20 


FIT HRTITITITIITTIITITT TE TI 


„4,15,65,4,16,65,4,32,65 
PB EU 5 Pe. 205 Be = Forte A 3 


360 ,2500, 2807 ,3150,3328,3746, 4205 


LE DAR ee 3: Pe 2 25 2 PerereeE Dr. DB Bo Su € 
TE SE EEE L- Fern EZ 1 Pre 5 Pott Dr ZEHE E 
vrmnnsiA, 513,019 lbyyyannlFggenyyliynihnyg1i,12 
undann tun denn ah ih nn rn 
IEEIEOrerr 

arr9Say2ayyn 

DEE EEE 5 2 Se BE Tr ZUERRee SE BEE GE = 

10050 DATA12,,14,,16,314,333,315,317,,15,,13,16 
20051 :DATA19,20,21,9,,11,,12,,12,,11,,12, 
10052 DATA,16,514,,172,12,13,12,,12,,19 


ay,12,,12,,15,16,15,,14,,21 
»12,,14,,12,,0,,,8,457,418,16,17,18,19 
»20,17,,12332435,10,,12,,10,,8,,17,18,17, 


10055 DATA12, 511453512, ,14,512,,15,,12,13,12,,114,16417416,49, 16, .14 


10060 DATA21,,,19,,5,1&,,33514,15,,14,16 
10061 DATALS, z455714,5312,347,10,9,14 


10062 DATA, 539g y12yy 54 
10089 2 

10070 REM SPRITE-FARBEN 
10071 ı 


10072 DATAL&1,-87,-126,-117,—49,-173,26,-24 
10073 DATA-127,-87,65,-101,245,169,—246 


10674 DATA-49 
10075 +; 


10075 DATA160,234,246,97,117,11&,32,160,160,244,72 
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2,111,150,-49,87,29,-87,212,114,250 


5,225,118,32 


u Computer: 





Diese neue Reparaturanleitung 
ist eine einzigartige Serviceunter- 
lage für Reparaturen und Entwick- 
lungsarbeiten am C-64. 

Sie enthält Schaltpläne, Bauteile- 
und Vergleichstypenliste, Prüf- 
punkte mit Oszillogrammen der 
Signalformen, Logiktabellen, 
Spannungsangaben, schnelle 
Servicetests, eine Anleitung zur : 
systematischen Fehlersuche. 
Alles steckt in einer praktischen 
Mappe. 
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6502-Assembler-Kurs 


Teil 4 


kurs 


Die Adressierungsarten des 6502 und 6510 


Im letzten Teil unseres Kurses stell- 
ten wir Ihnen alle 6510-Befehle in 
einer Liste vor. Wie zu erkennen war, 
haben eine Vielzahl der Befehle die 
gleiche Bezeichnung. Dies liegt dar- 
an, daß der Mikroprozessor eigent- 
lich nur 56 verschiedene Befehle aus- 
führen kann. Durch die Verwendung 
verschiedener Adressierungsmetho- 
den kommt man auf eine Zahl von 
151 ausführbaren Kommandos. 

. Der Befehlssatz ist sehr leicht zu 
“erlernen. Wir wollen uns die einzelnen 
Adressierungsarten anhand einfacher 
Ladebefehle vorstellen. 


Die Ladebefehle des 
Mikroprozessors 
Die wichtigsten Register des 6510 


sind Akku, X und Y. Für jedes Regi- 
ster existieren natürlich auch entspre- 


| chende Ladebefehle: 


LDA lade Akkumulator: 

LDX lade X-Register 

LDY lade Y-Register 

Diese kann man sich sehr leicht ein- 
prägen, da die ersten beiden Buch- 
staben des Befehles für Load (Laden) 
stehen. 


Die unmitteibare 
Adressierung 


LDA #10 

Bei dieser Form der Adressierung 
liegt einer der Öperanden in dem 
Byte vor, das unmittelbar dem Byte 


8/85 


des Objektcodes folgt, Steht vor dem 
Operanden das Symbol „#“, wird 
dieser unmittelbar vom Akku über- 
nommen. Diese Adressierungsart be- 
nutzt man, wenn ein Register mit 
einer Konstanten geladen werden 
soll. Sie wird auch beim X- und Y- 
Register verwandt. 

LDX #980 xX-Register wird mit 
dem dezimalen Wert 
128 geladen 
X-Register wird mit 
dem dezimalen Wert 
12 geladen 

Bei dieser Adressierungsart ist also 


LDY #12 


der Wert, welcher geladen wird, Be- 


standteil des Maschinenprogram- 
mes. Im Speicher stehen der Befehl 
und der Wert in zwei aufeinanderfol- 
genden Speicherstellen. Wird ein 
Programm ab dieser Adresse aufge- 
rufen, wird der Inhalt dieser Adresse 
als Befehl interpretiert. Nachdem der 
Befehl ausgeführt wurde, erhöht sich 
der Programmzähler automatisch um 
2. Der Programmzähler zeigt damit 
auf den nächsten Befehl, der nun 
interpretiert werden kann. 


Die absolute 


Adressierung (direkt) 


Ida $10 


Die absolute Adressierung verwendet 
das zweite oder zweite und dritte Byte 
des Befehles zur Identifizierung der 
Adresse eines Operanden im Spei- 
cher. Die Nullseiten-Version wird 
spezifiziert, wenn der im Befehl als 
Operand verwendete Ausdruck auf 
einen Wert zwischen 0 oder 256 zu- 


Gemsußs miP 


rückgeht. In diesem Fall benötigt der 
Befehl kein drittes Byte. 


LDA $C000 

In unserem Beispiel wird der Akku- 
mulator mit dem Inhalt der Speicher- 
stelle $C000 (49152) geladen. Da die 
Adresse $C000 eine 16-Bit-Zahl ist 
und der 6510 nur 8 Bit verarbeiten 
kann, ist eine Konvertierung in zwei 
Zahlen notwendig. 

Dabei benutzt man folgende Konven- 
tion: Nach dem Befehl kommt zu- 
nächst der niederwertige Teil der 
Adresse und dann der höherwertige. 
In diesem Fall also zunächst der 
Befehlscode $AD (173), dann $00 
und schließlich $CO (192). 

Die entsprechenden Befehle gibt es 
natürlich auch für das X- und Y- 
Register. Bei der Interpretation eines 
solchen Befehles weiß der Prozessor, 
daß es sich um die absolute Adres- 
sierung handelt und er holt sich 
nacheinander erst den niederwertigen 
Adreßteil, auch Low-Byte genannt, 
danach den höherwertigen Adreßteil, 
High-Byte genannt. Der Inhalt der 
adressierten Speicherstelle wird in 
das Akku geladen und der Pro- 
grammzähler um 3 erhöht. 

Ist die adressierte S peicherstelle klei- 
ner als 256, dann spricht man von der 
Zero-Page-Adressierung, eine Be- 
sonderheit des 6510. Der Vorteil die- 
ser Adressierung ist, daß vom Befehl 
nur 2 Bytes belegt werden und somit 


“ Speicherplatz gespart wird. 


Die Zero-Page-Adressierung hat 
beim 6510 besondere Bedeutung und 
wird meist von Systemvariablen be- 
legt. Welche Aufgabe die einzelnen 
Adressen besitzen, wird in einer der 
nächsten Folgen besprochen. 





kurs 


Implizierte oder 
inhärente Adressierung 


TXA 

Diese Adressierung bedeutet, daß 
keine Adressen zur Ausführung des 
Befehls erforderlich sind. Ein typi- 
sches Beispiel ist der TXA-Befehl. Er 
bewirkt, daß der Inhalt des X-Regi- 
sters vom Akkumulator übernommen 
wird. 

Man spricht bei solchen Befehlen oft 
von Transfer-Befehlen. 

Alle Transfer-Befehle sind Ein-Byte- 
Befehle. Sie brauche keinen Operan- 
den, da durch den Befehlscode die 
Operation eindeutig bestimmt ist, 


Akkumulator-Adressierung 

Bei der Akkumulator-Adressierung 
werden die Daten des Befehls im 
Akkumulator verarbeitet. Beim Mikro- 
prozessor 6510 sind die einzigen Ak- 
kumulator-Befehte die Bit-Verschie- 
bungen. Wir kommen später noch 
darauf zufück. 


Indizierte Adressierung 


LDA $C000,X 

Diese Art der Adressierung verwendet 
das zweite oder zweite und dritte Byte 
des Befehles zur Spezifizierung der 
Basis-Adresse. Diese Basis-Adresse 
wird dann zum Inahit des Indexregi- 
Sters X oder Y addiert, um die effekti- 
ve Adresse zu erhalten. Da nicht alle 
Befehle mit X oder Y indiziert werden 
können, muß ein Indexregister ver- 
wendet werden, 


LDA $C000,X 

Bei diesem Beispiel handelt es sich 
um eine mit X indizierte Adressierung. 
Der Prozessor lädt den Akku nicht mit 
dem Inhalt der Speicherstelle $C000, 
sondern addiert zu diesem Wert erst 
den Inhalt des X-Registers. Enthält 
das X-Register beispielsweise den 
Wert $56, würde der Akkumulator mit 
dem Inhalt der Speicherstelle $C056 
geladen, 

Diese Adressierungsart ist sehr nütz- 
lich zur Programmierung von Schlei- 
fen und zur Bearbeitung von Tabel- 
len. 


Auch hierbei ist die Zero-Page- 
Adressierung möglich. Diese besitzt 
den schon bekannten Vorteil der 
Speicherplatzersparnis, 


Vor-indizierte indirekte 
Adressierung 


LDA ($20,X) 
Die Bedeutung dieser Betriebsart 
liegt darin, daß das zweite Byte des 


. Befehles zum Inhalt des X-Indexregi- 


sters addiert wird. Das Ergebnis die- 
ser Addition ermöglicht den Zugriff 
auf einen Speicherplatz in der’ Zero- 
Page, welcher die indirekte Adresse 
der eigentlichen Speicherstelle an- 
gibt. 

LDA ($80,X) 

Der Inhalt des X-Registers (ange- 
nommen $10) wird zu der Zahl $80 
addiert. Der Akkumulator wird nun 
mit dem Inhalt der Speicherstelle ge- 
laden, welche durch die Adresse in 
$90/$91 adressiert ist. 


Nach-indizierte 
indirekte Adressierung 


LDA ($20),X 

Diese Adressierungsart arbeitet ähn- 
lich der Vor-indizierten Adressierung. 
Das zweite Byte des Befehles enthält 
eine Adresse in den ersten 255 Bytes. 
Diese Adresse und der nächst höhere 
Speicherplatz beinhalten eine Adres- 
se, die zum Inhalt des Y-Registers 
addiert wird und damit die effektive 
Adresse erzeugt. 

LDA ($30),X 

Bei unserem Beispiel wird der Inhalt 
der Adresse $30/$31 zum X-Register 
addiert und der Akkumulator durch 
die entstandene Adresse geladen. 


Indirekte Adressierung 


JMP ($5000) 

Die indirekte Adressierung ist nur bei 
einem Befehl erlaubt (JMP). Dies ist 
ein Sprungbefehl, welcher zu einer 
anderen Adresse verzweigt. Dieser 
Inhalt zeigt das zweite und dritte Byte 


“des Befehles, bei der die effektive 
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Adresse liegt. Diese Adressierung be- 
legt immer 3 Bytes und kann nicht 
über die Zero-Page adressiert wer- 
den. Index-Register sind hier nicht 
möglich. 

Wie auch bei den anderen Befehlen, 
muß hinter dem eigentlichen Befehls- 
code erst das Low- und danach das 
High-Byte der Zeiger-Adresse abge- 
legt werden. 


Relative Adressierung 


BNE *+5 

Die relative Adressierung kennt der 
6510 rur bei den bedingten Sprung- 
befehlen. 

Eine Einzelbyte-Verseizung wird als 
Binärzahi mit Vorzeichen behandelt, 
die zum Befehlszähler addiert wird, 
nachdem der Inhalt des Befehlszäh- 
iers inkrementiert wurde, um den 
nächstfolgenden Befehl zu adressie- 
ren. 

Diese gestaltet Versetzungen im Be- 
reich von +129 bis -126 Bytes. 


BNE *+5 

Dieser Befehl springt um 5 Bytes 
weiter, wenn das Z-Fiag gelöscht ist. 
Gerechnet wird ab dem Byte, in dem 
das erste Byte des Befehles liegt. 


Bei den meisten Assemblern kann die | 


Zieladresse auch absolut angegeben 
werden. Die relative Versetzung wird 
dann automatisch errechnet. Man 
sollte jedoch immer darauf achten, 
daß man nicht aus der „Reichweite" 
der Relativen Adressierung gelangt. 


Elke Reif 
Franz Brali 


Literatur 
6502 Microcomputer Programmie- 
rung, Peter Heuer, Hofacker Verlag. 
6502 Programmierung in Assembler, 
Lance A. Leventhal, Te-Wi Verlag. 
64 Intern; Angershausen, Becker, 
Englisch, Gerits, Data-Becker Buch. 
6502/65002, Christian .Persson, 
Heinz Heise Verlag 
Das Maschinensprach-Buch zum 
Er Lothar Englisch, Data-Becker 
uch 
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Programme. 


COPTER-PATROL 


Schneider CPC-464 





Ein Helicopterflug durch ein unterirdisches Höhlensystem 





Das Spiel COP- 
TER-PATROL be- 
ginnt mit einer 
Spielanleitung. 
Dabei wird erst 
einmal der Name 
abgefragt und dann 
* jeder einzelne Buchsta- 
be des Auftrags mit einem kleinen 
Piepser ausgegeben. Dann geht es 
zu einem Titelbild über, bei dem der 
High-Score, der aktuelle Score und 
Anweisungen der Tasten zur Spiel- 
steuerung angezeigt werden. Durch 
drücken der FEUER- oder COPY- 
Taste beginnt das eigentliche Spiel. 
Der_Bildschirm wird aufgebaut und 
der Helicopter des Spielers erscheint 
auf der Basis und wird aufgetankt. 
Der Treibstofiverbrauch wird mit ei- 
nem Balken am oberen Bildrand an- 
gezeigt. Wenn der Treibstoff in den 
dunkten Bereich kommt, ertönt ein 
dauerndes Piepsen, bis der Treibstoff 
zu Ende ist und man ein Leben (Heli- 
copter) verliert. 

Nachdem Ihr Helicopter aufgetankt 
ist, müssen Sie losfliegen und versu- 
chen, in das unterirdische Höhlensy- 
stem zu gelangen. Dort sind alle 10 
Schätze einzusammeln. Durch ein 
KLING wird angegeben, daß der 
Schatz angenommen wurde. Haben 
Sie alle Schätze eingesammelt, flie- 
gen Sie schnellstens zur Basis zurück 
und liefern Sie dort die Schätze ab. 
Jetzt ertönt eine Siegeshymne und 
Sie erhalten 1000 Punkte Bonus. 
Dann geht es weiter und neue Schät- 
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ze erscheinen, durch Zufall wieder an 
anderen Stellen. Auch nach einem 
Crash erscheinen alle Schätze wie- 
der. Während dem Einsammeln der 
Schätze stören lebensgefährliche Tü- 
ren, die zeitweise erscheinen und wie- 
der verschwinden, Ihren Flug durch 
das Höhlensystem. Die kleinste Be- 
rührung mit den Türen oder den 
Wänden der Höhle bedeutet den Ver- 
tust eines Helicopters. Insgesamt 
Stehen Ihnen drei Helicopter für die 
Bewältigung Ihrer Aufgabe zur Verfü- 
gung. 

Auf dem Flug in das Höhlensysiem 
oder dem Rückflug zur Basis werden 
Sie von feindlichen Flugzeugen ver- 
foigt, die Sie mit Hilfe einer Lenkra- 
kete abschießen können. Jedes ab- 
geschossene Flugzeug erhöht die 
Punktzahl. 


Gompufe mip 






Während des Fluges achten Sie bitte 
auf den Inhalt Ihres Treibstofftankes. 
Das Spiel wird über die Gursortasten 
oder mit einem Joystick gesteuert. 
Bei der Steuerung über Tastatur ist 
die COPY-Taste die Feuer-Taste. 

Während des Spiels kann man ent- 
scheiden, ob man ein Hubschrauber- 
Geräusch oder eine Melodie hören 
will. Die Melodie sind zwei Lieder, 
der „Yankee-Doodie* und das Lied 
„Oh my Darling“. Zwischen Ge- 
räusch und Musik schaltet man über 
die ENTER- oder SPAGE-Taste 


‘um. Ist die Musik eingeschaltet, er- 


scheint im rechten oberen Bildrand 
eine kleine Note. Die Farben kann 
man nach eigenem Geschmack in 
Zeile 630 ändern. 


41 


42 


programme 


Variablenliste: 


copt$ - Helikopter 

crash$ - Crash-Grafik 

del$ — löscht Helikopter auf alter Position 

delr - löscht Feld auf Position bei Crash 

fue! — Treibstoff für Helikopter 

iv - restliche Helikopter (Leben) 

xy - aktuelle Helikopter-Position - 

b - Wert, ob Helikopter links, rechts oder nach Mitte zeigt 

ix,jy,ib - vorübergehende Werte von x,y und b bei der Joystick-/Tasten-Abfrage 
raket$ — Rakete 

treif$ - Grafik, wenn Rakete trifft 

schatz - Anzahl der gesammelten Schätze 

sc - Punkte - Score 

hisc - — höchste Punktzahl - High-Score 

hi1,hi2. - Hilfsvariablen zum Poken der High-Score 

tu(1..40,1.25  - Positionen der Schranken (Türen) 

xsch,ysch - Positionen der Schätze 

MU - Wert, ob während des Spiels Musik gespielt wird oder ob Geräusch ertönt 
changel,change2 — bestimmt Positionswechsel von gegnerischen Fliegern 

fa — bestimmt, ob gegnerischer Flieger Flugzeug oder Helikopter ist (durch Zufall) 
teind$(fa) - Grafik der gegnerischen Flieger 

Kllyl/i2ly?  —- Positionen der gegnerischen Flieger 

cr(1..40,1.25)  —- Spielfeld/Wert gibt Gegenstand an 

tuer${z) - Grafik der Türen/z=0 - Tür weg, z=1 - Tür da 

ton,f - Tonhöhe bei Melodie 

d,dauer - Tondauer bei Melodie 

rei,re2,re3 - schaltet Zeitgeber 1, 2 und 3 ab (nach EVERY-Befehl) 

a,hi,k,lt - Scheifen-Hilfsvariablen 

anw$ - Anweisungen (beim Titelbild) 

g0% ‘- Game Over-Anweisung 





RETTEN EEE 
"... COPTER-PATROL er 


U [un en 
"*#* Written & Designed ##** 
"RE by=. “rr 
ur. Be = 7 
"*#%* Christian Moeller ### 
"ar ER 
"Ar Er 
"xrr 2 


au# W.2 /tc} Mai 1985 x... 
RR 


RE nn + 
"**+* Titelbild ##* 
a — Hr 


MODE 1:BORDER O:FAPER Ö:PEN 3:INK 0,0:INK 1,11:INK 2,5: INK 3, zu 
ON BREAK GOSUB 3490: RESTORE 250: d=2:ENV 2,3,5,1, 15,-1, 5 

LOCATE 7,1:PFEN 5:PRINT">>>>> CODPTER — PATROL. eeiccn 

READ i,j,anw$,col:iIF j=25 THEN d=6:B0SUBR 470 

IF i=1 AND j=7 THEN anwf=zname$ 

LOCATE i,„j:PEN col 

FOR a=1 TD LEN(anws#}: PRINT MIDF{anwF,a,1);:50UND 2,30,d,5 

IF (Sat2) AND 128)=125 THEN 240 
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250 
OTO 
260 
270 
ZRO 
290 
300 
z10 
320 
330 
340 
350 
360 
370 
380 
390 
300 
410 
420 
430 
440 
450 


470 
440 
490 
SOO 
510 
320 
530 
540 
550 
S&0 
570 
580 
570 
‚&00 
610 
620 
650 
40 
850 
&&0 
670 
680 
890 
7090 
710 
720 
730 
740 
750 
760 
770 
780 
770 
800 


310 


820 
830 
840 
330 
BA0 
870 
880 
890 
700 


8/85 


programme_ 


NEXT asFOR b=1 TO SO«NEXT:IF j=5 THEN GOSUB 490:60T0 200 ELSE IF j=25 THEN 6 
500 ELSE G0TD 200 


DATA 7,2, mm oma ler 

DATA 1,4, "Identifizierung: -",3 

DATA 1,5," NAME} ",2,1,7,"",3 

DATA 10,7," - sie sind als bester Filot"”,i 

DATA 1,8,"unseres Landes ausgewaehlt worden,den",1 
DATA 1,7,"schweren Auftrag auszufuehren u. 

DATA 1,10,"Sie sind unsere letzte Chances2..2...",2 
DAarfA 1,12,"Ihr AUFTRAG: -* „3 

DATA 1,13,"Unser Land ist von unseren Feinden ange-",1 
DATA 1,14,"griffen warden.Unser Praesident wurde",i 
DATA 1,15,"gefangen genommen.-Um ihn und unser Land" ,1 
DATA 1,16,"zu retten, muessen wir den Feinden ein",1i 
DATA 1,17,"Loesegeld von mindestens 100098 zahlen."”,1 
DATA 1,18,"Der Staat hat kein Geld.Es liegen nur"„E 
DATA 1,19,"noch ein paar Schaetze in einem Hoshlen-—",i 
DATA 1,20,"system unter einer evakuierten Stadt." „1 
DATA 1,21,"Diese muessen sie alle sammeln und zur",i 
DATA 1,22,"Basis zurueck bringen.Dabei werden sie",i 
DATA 1,25,"durch Luftangriffe und Tueren gestoert.",1 
DATA 6,25,"Zum Starten Taste druecken...",3 


En er m m ns m m rn m a a mar na a 


RESTORE 3570: FOR t=1 TO 58:G0SUB 3540 
SDUND 4,0,5,0:NEXT tT:RETURN 
SDUND 2,50,10,8:L0O6ATE 5,5:PEN 1: INPUT" “„name$: name$=UPPER$ (name$) : RETURN 


EALL &BRO& 

RUM 3340 

AR nl 
"*%*%* Initialisieren #** 
BEE oT och 
MODE 1:TLEAR:DEFINT a-z 


DIMm er (46,25) ,tu (40,25) „xsch {10} „ysch (10) „high (10) „high$ (10) 
RESTORE 580: FOR k=1 TD 12:READ i,jetuli,j)=1:NEXT 
DATA 7,11,7,17,35,20,358,20,24,21,6,22,14,25 

DATA 31,23,32,23,25,24,40,24,19,25 

FOR 1=1 TO 10:xscht})=1sysch{1)=3:NEXT 

ON BREAK GOSUB 3490 

WINDOW #1,1,40,1,1 

BORDER 3: INK 0,0: INK 1,76: INK 2,13: INK 3,74 

PAPER #1,0:PEN #1,1:2PAPER O:CLS:CLS # 

GOISUB 3910: '-——- Grafik-Zeichen 

FOR i=33 TOD 40ser ti ,i17)=1:NEXT 

FOR i=34 TO Aöscor ti,1ö)=1:NEXT 

FOR i=35 TG 4bscr ti „IS)=13NEXT 


FOR i=3& TD 40:cr (i,19)=12NEXT 
ER nn ARE 
"x## Bildschirm-Aufbau ##* 
m nn 


RESTORE 770 

READ i,i,kilF i=-1 THEN G0TO 830 

FOR 1=i TO js:LOCATE 1,k:PEN 2:PRINT CHR$ (240) 35 :cr (1,k)=1:NEXT 1 
SOTO 740 

DATA 1,6,18,8,40,18,1,1,19,38,40,17,1,6,20,9,25,20,27,33,20 
DATA 37,40,20,1,7,21,9,11,21,16,17,21,33,34,21,39,40, 21 1,1 
DATA 22,11,11,22,14,18,22,20,21,22,23,29,22,34,34,22,39 ,40 
DATA 22,1,1,23,6,7,23,9,11,23,20,20,23,25,25,23,28,30,23,33 
DATA 40,23,5,7,24,11,15,24,17,20,24,28,29 ,24,34,36,24,1,8 

DATA 25,23,28,258,40,40,25,-1,0,0 

PLOT. 1,1:DRAW 640,1,2 

FOR i=1 TO 32:LOCATE i,17:PEN 34PRINT CHR$ (223) 3 ser (ir, 17)=12NEXT i 
PLOT 510,128,3:DRAW 510,142,3:PEN 2 

LOCATE 36,14: PRINT CHR$ (214) +5TRINGS (4,219) 35 

LOCATE 35,15: PRINT CHR$ (216) +STRING$ (5,215) 5 

LOCATE 34,16:PRINT CHR$ (218) +STRING$ (6,2159 5 

LOCATE 33,17:PRINT ECHR$ (216) +STRINGE (7,2155 

DN BREAK GOSUB 3490 
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710 
920 
9350 
YAG 
750 
FA0 
970 
730 
790 


programme 


FOR i=1 TO SO:LDCATE i,16:PRINT CHRS (219) ;32cr {1,163 =1:NEXT i 
FOR i=t TO 350:FOR j=15 TO 11 STEP -—1 

LOIEATE i1,Jj:PRINT CHRF(220)3scr (1 ,jI=1:NEXT j 

LOCATE i,jsPRINT CHRF(Z221)z5zcr {i,j)=1:NEXT i 


* 


PEN 3:PRINT CHR$ 1272) +CHR$ (1); 
FOR i=1 TO INT(RND+55) +25 
LOCATE INT (RND*30) +1 ,15-INT (RND*5) PRINT CHRF (222) 3 





1000 NEXT i 
1010 PRINT CHR$S(22)+CHR$ (0) 5 
1020 '-——-------- mm... 
1030 FOR i=10 TOD 17:LDCATE 7,i:PRINT" "scr (7,i1)=03NEXT 
1040 PLOT 95,12B:DRAW 95,245,1:PLOT 112,128B:DRAW 112,245,1 
1050 GOSUR 1220:G60SUB 1090:50T0 1440 
1080 Em mu 
1070 '#%%* Gchaetze + 
1080 HH nn nun ER 
1090 FOR 1=1 TO 10:i=xsch (1) s j=ysch (1):LOCATE i,J:PRINT® "ser (i,Jj}=0:NEXT 1 
1100 RESTORE 1170: schatz=0: zuf=INT (RND#2) 
1110 FOR 1=1 TO 10:IF zuf=1 THEN GOSUB 1140 ELSE GOSUB 1150 
1120 LOCATE i,j:PEN 1:PRINT CHRF{K)S Ser (i ,j)=6:xsch(])=izeysch(i)=j 
1130 NEXT=:RETURN 
1140 READ i,j,k:RETURN 
1150 i1=INT (RND*40+1) 2 j=INT (RND#7+19) ık=INT {RND#4+241) 
1160 IF crfi,j)<>O OR tuti,j)=1 THEN 1150 ELSE RETURN 
3170 DATA 3,24,241,2,19,243,194,21,242,23,24 244,26 ,25,243 
1180 DATA 37,21,243,35,22,241,29,25,245,31,21,242,37,24,244 
1170 "RR IH 
1200 '#x= Basis ##* 
1210 "Hr 14H 
1220 FOR i=35 TO 40:LOCATE i,13:PEN 3S2PRINT CHR$(225) 3 3c0r (i ,IS)=A:NEXT i 
1230 PEN 3 
1240 LOCATE 39,12:PRINT CHR$ (229) 5; CHR$ (231) 4 er (39,129 =4: or (40,12)=4 
1250 LOCATE 39,112 PRINT CHRS$ (230) 5CHR$ (230) 5 1cCr (39, 11)=4:cor (40, 11)=4 
1260 LOCATE 33,123PRINT CHR$ (2264) 5:cr (33,12)=4 
1270 LOEATE 37,123PRINT CHR$ (227) 5 3cr (37,12) =4:cr (36,129=4 
1280 LOCATE 37,10: PRINT CHR$(22B) 5:cr (39,10)=4 
1290 er 134,19) =S: cr (35,19) =5 
1500 PLOT 520,139,3:DRAW 520,191: PLOT 533,1531:DRAW 533,191 
1510 PLOT 545,164:DRAW 545,191=PLOT 557,17&:DRAW 557,171 
1320 FOR i=355 70 35:FOR j=14 TO 16scrti,j)=4sNEXT j,i 
1330 RETURN 
1240 "-—- nn #rr 
1350 '##* Spielanzeige #** = = = 
1360 '#* Subrautine zu Grafik-Einzeiler 
1370 "ko un CPC 464 
1380 LDCATE #1,2,1:PRINT #1, "SCORE: ";sc n En 
1390 LOCATE #1,14,1E2PRINT #1,"LIVES2"; Im Folgenden finden Sie einen Gra- 
1400 LOCATE #1,20,1:PRINT #1,LEFT$(copt$(4) ‚1iv#3) fik-Einzeiler zu Ihrer ganz persönli- 
1410 LOCATE #1,29,1: PRINT ee: chen Verwendung. Mit diesen kurzen 
1420 IF mu=0 THEN LOCATE #1,40,1:PRINTEL," "s I oe Alinhleni 
1430 IF mu=1 THEN LOCATE #1,40,1:PRINT#l „CHR$ (237); SL ae a SSUlEneN, 
1440 PLOT 1,3548,1:DRAW 640,368:PLOT 1,392:DRAW 440,382 i 6. 4 
1450 RETURN wickelten Programmen zu verschö- 
1480 mn % nern. Weiterer Einzeiler $. 61 
1470 "*%*# Interrupt *** 
ar i RR i 
er ee 10 MODE 1:1NK 0,0:1NK 1,7: INK 
1500 fuel=fuel-z 2,21:PAPER 0:BORDER O:CLS: 
1510 PLOT EL: 72 ONDRaN 79,0: EEE ORIGIN’0,0:2=0:FOR i=0 TO 200 
1520 IF fuel<=140 THEN SOU 2 ‚195750, En s 
1550 IF fuel<=0 THEN crash=1 ö ee re END 
1540 IF schatz=10 THEN INK 3,6, 12:5cC=sc+200 UN TEE, 
1550 IF sc{=0 THEN sc=o 320,400-1,2:DRAW I, 200,2: DRAW 
31540 IF sc>hisc THEN hisc=sc 320,1,2:NEXT:FOR i=1 TO 15:FOR 
1570 LOEATE #1,8,1:PRINT #1,5c0; js1 TO 251 NK TlNk 


1580 LOCATE #1,34,1:PRINT #1,:hiscy 


2,j+1:FOR k=1 TO 150:NEXT kj, 
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RETURN 


fr 1-38: Fyl=dıtnze2s fy2=3:fasischangei=0:mu=0 
Liv=3: 3jx=34: jy-12: jb=3Iramjxı y=jyıb=jb 
hisc=PEEK (30000) #255 +PEEKR (30001) : sc=0 

DON BREAK GOSUR 3499 

GOSUB 13560: RESTORE 3570 

RANDOMIZE TIME 

EVERY 50,5 GOSUB 1500 

EVERY &0,2 GOSUB 2770 

EVERY 100,1 GOSUB 2920 

GOSUB 2050:60T0 1770 


Ihnen nen 
"**r* Joystick-Äbfragen ##* 


BREAK GOSUB 3490: PEN 1 
crash=1 THEN G0T0 3096 
mu=0O THEN DON EGt1) GOSUR 2000 
JOYtO}=1 OR INKEY{O)=O THEN ix=x2 jy=y-l:jb=b:60T0 1880 
JOyod)=2 OR INKEYI2I=0 THEN ja: jyayrl: jb=b:6GOTD 1880 
JOY(O}=4 DR INKEY(BI=0) AND bei THEN jx=x: jy=y: ib=b+t1:50T0 1880 ELSE IF 
JoYcOo)=4 OR INKEY{H)=O THEN ja=a-l: jy>y: ib=b+1:60T0 
1580 
1330 IF (WJOYtO)=B OR INKEY(1)=0) AND b=? THEN jx=as jy=y:jb=b-1:650T0 1880 ELSE IF 
JoyYio)=B OR INKEY(1?=0 THEN Ix=xti: jyayrjb=b-1:5607T0 
1880 
. 3840 IF JDY(O)=14 OR INKEY{PM)=-0 THEN G0OSUB 23546 
18506 IF INKEY(47)=0 OR INKEY(18)=0 THEN GDSUB 1980 
1840 IF mu=1 THEN ON 58(4) GOSUR 3540 
1870 GOTO 1770 
18806 IF ibsi THEN ib>1 ELSE IF jb>3 THEN jb>3 
1890 IF jx<i THEN jx=39 ELSE IF jx>3% THEN jx-1 
1700 IF jyiX3 THEN jy=3 ELSE IF jy>25 THEN jy=-25 
1910 IF jx=37 AND jy=25 THEN jx=39: jy=25: IF eck=0 THEN eck=1:505UB 2040:60T0 5309 
[e) 
1720 GDSUR 2040 
1930 IF mu=1 THEN DM SGt4) GOSUB 3540 
1940 G0T0 1770 


19 rare 


1750 mu=smurl:mu=mu MOD ZELDOCATE #1,40,1:PRINT#L," ";s 
1770 IF mu=1 THEN LOLCATE #1,40,1:PRINT#1 ,CHR# {123735 
1780 FOR t=1 TO iO: CÄALL &BD19: NEXT tz RETURN 
1770 
. 2000 SRUND 1,1000, 17) 3,0,0,15:50UND 3,0,53,53,0,0,11 
2010 RETURN 
2020 
2050 "#*# Hubschrauber-Steuerung #8 
DOG "RR ne 
2050 DI 
2050 LOCATE x,y:PRINT del#(hb); 
2070 x=jx:y=jyıb=jb 
2080 LDEATE x,y:PEN 1:PRINT copt#(chb): 
=070 IF tb<>Z AND er (is+1,y)=1) THEN deir=23: 60910 3090 ELSE IF crix,y)=3 THEN delr 
=1:60T0 3090 i 
2100 er (z,y)J=2 THEN LOCATE fxi1,fy1l:sPRINT" "schangei=1:dcelr=1:60T0 5090 
zi10 er (x,y)=3 THEN LOCATE #2, fy2:PRINT" "echange?=1l:dcelr=1:6070 3070 
2120 er ix ,y}=4 THEN deir=1:6010 30905 
2130 er (x,y)=5 THEN GOSUB 2220 " 
21406 IF (h<>2 AND er tix#+l,y)=4) THEN cr ix+1,y)=0:schatz=schatz+i:sc=sc+50:50UND 2 
‚20,0,0,1 
2156 IF cr (x,y)=& THEN or (x ,y) =0:schatz=schatz+1:sc=sc+50:50UND 2,50,0,0,1 
2150 fuel=fuel-2:PL0OT fuel ,372,0: DRAW fuel „376,0 
2170 TALL &BDiIF:EI 
2180 RETURN 
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Suche Hardware 


Suche € 64, gut erhalten, zahle bis 400,- 
DM oder Tausch gegen VC-20 +6KK + 
Superprogramme, A. Dinsch, Berliner Str. 
17, 5980 Werdohl. 


Biete an Hardware 


C 64. Verk. Modulbox, Sfach, gepuffert, 
Resettaster u. schaltbar (neu), 100,- DM. 
Tel, 0641/42785 


CPC 464 - ZX 81 - Spectrum - C 64. 
Zubehör im Selbstbau. Info gegen Rück- 
umschlag. Fa. Baltes, Nordring 60, 6620 
Yölklingen 


VALCOM 1-A$ 232/V. 24-Schnittstelle 
für Ihren Schneider CPC 464. Einführungs- 
preis VALCOM 1 + Software + dataphon 
821 d nur DM 538,—. Info gegen DM 1,30 
bei Ihrem Schneider-Spezialisten VALC 
Computer GdbR, Waagasse 4, 8230 Bad 
Reichenhall 


Verschiedenes 


G & S Computerservice, Rudi Gutzmann 
u. Dieter Schulz, Soft- und Hardware C 64. 
Alles für den Commodore. Katalog kosten- 
los. Rudi Gutzmann, Krankenhausstr. 151, 
5030 Hürth, Tel, 02233 / 63250; Dieter 
Schulz, Funkenstr. 42, 5020 Frechen, Tel. 
02234/57848 


CPC-464;: Super-Software, Beratung, 
Clubinfos, Buchbesprechungen, Listings, 
Tips u. Tricks, superschnelle Antwort auf 
alle Fragen und noch viel mehr bietet der 
internationale COMPI-Club! Halbjahresbei- 
trag nur DM 20,-1 Wir sind der Club für den 
CPC! Gratisinfo bei: Jörg Heise, A. d. Linde 
8, 5226 Reichshof. 


CPC-464| Suche‘ Kontakte zu anderen 
Schneider-Besitzern zwecks Programm- 
und Erfahrungsaustausch. Bitte melden 
bei Jan Kschonsak, Hubertusstr. 73, 1 Ber- 
lin 20 oder Tel. 030/332 1134 {bevor- 
zugt Raum Berlin). 


* An alle Comic- u. C 64-Fans % Wer 
tauscht mit mir alte Marvels aus dem Willi- 
ams-Verlag gegen C 64-Games”? Für jedes 
Heft biete ich 2 Spiele (nur auf Kassette). 
Schickt eine Liste der Comics u. Eure 
Spielwünsche an: Norbert Strauss, Tan- 
nenweg 45, 6367 Karben 1. Ich werde 
mich bemühen, alle gewünschten Spiele 
aufzutreibent 


Biete an Software 


Musik mit dem CPC-464? Na klarl Mit 
EASYMUSICI Viele Funktionen, Notengra- 
fik, Kassette nur 25,— DM inkl. Porta (Vor- 
kasse); Ausf. Beschreibung gegen -—,80 
DM (Briefm.); Dipi.-Ing. Rainer Pecksen, 


Waldstr. 13, 5164 Nörvenich-Rath, Tel... 


024 26/4797 


varDAT II, professionelle Datei, Cassetten- 
und Diskversion, Listengenerator für 
schnelle Übersichten, Etikette TASWORD 
464, professionelle Textverarbeitung, Cas- 
setten- und Diskversion, mit ständig sicht- 
barer Help-Seite u, max. 136 Z/Zeile, alle 
Drucker, Info gegen Freiumschlag. SOFT- 
DESIGN, Bleichstr. 25, 4040 Neuss 1. 


©-641 Wegen Wechsel Verkauf der Softwa- 
re CBrosh-up, Mathemat, Zaga, Hulk usw.), 
je Disk (ca. 10 Prg's.), nur 25,- DM, 15 
Adventurelösungen + 2 Anleitungen + 80 
Pokes, nur 20,- DM, Lateinvokabelprg., 
3000 Vokabeln, M-Code, Menü, Druckfunk- 
tion, nur 30,> DM, Schein an: Andre Blum- 
berg, Alte Landstraße 91, 5253 Lindlar 2, 
Urban. 


%* Schneider CPC 464 %* 
Standard- u. Individualsoftware, Zubehör, 
Bücher usw. Z. B. Datenbank, Textverarb., 
Sachbuchhaltung und Spielprogramme. 
Disketten für versch. Computer: 3"; 3,5"; 
514". Händleranfragen erwünscht! Info: HS- 
DATA, Haas & Schwarz GbR, Bahnhaofspl. 
19, 6550 Bad Kreuznach 
* Schneider CPC 464 %& 


® CPC-464 ® Gobbler (Strategie u. Ac- 
tion) 39,-; Fluglotse (Simulation) 29,-; Ka- 
tender (Druck NLQ-401) 19,-; Cedi (Cha- 
racter Editor) 55,-; Handbuch zum Cedi 
15,—. Immer neue Programme in Arbeit. 
Fertige auch Individualsoftware. Info u. 
Best. bei: Frank Aeffner, Im Bans 20, 2080 
Pinneberg 


BSEBRBREBERSEBHZRER 
MB Commodore 64 + Schneider 
Ü Professionelles Astrologie-Pro- MI 
Ei gramm: 5 Seiten ausführl. Persön- M 
I |ichk.-Analyse inkl. Grafik, Aspekte, 

[. Sternzeit, Planeten + Häuserbe- EI 
EI rechnung + Text. Schumacher, 

MM Carl-Zeiss-Str. 14, 3200 Hildesheim, IE 
- Tel. 05 12/1236 46. 5 


CPC-454, die Herausforderung. Logik’ 
Strategiespiele. Topbildschirm, Protokoll ' 
und Ausdruck. IARSINN, ZINGEL, SPRING 
je 12,-— DM, zusammen 25,- DM. FLUG- 
SIMULATOR 48,— DM, STATIGRAPH, Zah- 
lerı grafisch, 36,— DM, Preise zzgl. Ver- 
sandkosten (NN). WESO, Königswall 16, 
4408 Dülmen. 


Einmalige Gelegenheitl Ich verkaufe 250 
Programme auf Kassette für 55,— DM, sind 
nicht nur Spiele. Liste kostet 1,- DM. Ach- 
tung! Versandkosten sind nicht berechnet, 
Eck Daniel, Pommernstr, 55, 8012 Otto- 
brunn, Tel.: 089/609 1351 


©-54-Super-Kopier-Programm mit ver- 
schiedenen Versionen und vielen Möglich- 
keiten. Nur auf Disk., DM 45,-, Jürg Stei- 
ger, Feld 22, 3045 Meikirch, Schweiz. Lie- 
ferung p. NN. 


EPC-464: Bundesligatabelle bzw. 2. Liga. 
Menue mit 8 Unterprogrammen. Ausgabe 
erfolgt wahlweise über Drucker oder Moni- 
tor. Jedes Programm nur DM 25,- oder 
beide Prg. für DM 40,- gegen Vorkasse. 
Überweisung auf Postscheckkto. Köfn, 
3063 46-506 oder Schein an K. P. Wimmer, 
Postfach 2169, 5226 Reichshof 21. 


® Commotire 64 > 

S Die Diskette zum Handbuch! . 
Fast 50 Programme, lauffähig und 

® ;chlerfreiDM 10,-Kostenbeteilig. u. - 

® adr. + ausr. frank., Rückumschi. an © 

® Hans Blankenfeldt, Manteuffelstr. 

® 57, 1000 Berlin 36. Stichwort ‚Hand- ® 


> buch" angebent ® 


CPC 4641 Supersave 464, saven mit bis 
zu 3600 Baud nur 15,- DM; Haushaltsab- 
rechnung mit Mon.-/Jahr-Abrechnung u. 
Graphik 20,- DM; Strategiespiele 
10,-/15,- DM, Softwäre-Liste gegen 1,20 
DM an Rainer Müller, Krapfenäckerweg 9, 
7442 Neuffen (Tausch möglich). PS: Alles 
auf Kassettel! 


%« Kleinanzeigen %* Kleinanzeigen % Kleinanzeigen % 
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tips & tricks 


a ER ER Kleines Demonstrations- 

2 REM - programm zum Aufzeigen 

: Fee ACHSEN-BEMD FUER SCHNEIDER CFC444 der hervorragenden 

5 REM GESCHRIEBEN VORNs T.GLAUERECHT 5074 PULHEIM i Grafikm öglichkeiten auf Ihrem 
EEE EN Schneider CPC-464. 

TREE 

i00 RAÄNDOMIZE TIME 

110 MODE 1 

120 DEG 

130 CLS 


i40 FOR i=1 TO 10 

150 »=INT(10*150xRND) : y=INT (10+100=KND) 

150 IF ABStalt-y)<15 THEN 150 

170 »1l=xi1-x ; 

1806 IF i=1 THEN x1=438-x-y/2 

170 IF x1<y/2 THEN 240 

200 FOR j=0 TD 350 STEF 110/y 

210 PLOT x1,200+y*C05 13) ,3:DRAUR y/2#SINtH „O 

220 IF j<180 THEN DRAWR x,0,2:DRAWR 0,0,3 

230 NEXT 

240 altzy 

2590 NEXT 

250 LOCATE 1,253 PRINT"1 -> Neue Achse 2 -> Neue Farben" 

270 as=INKEYF: IF af="" THEN 770 

zE0 IF af="2" THEN 310 

290 IF a$="1" THEN INK 7,20: INK 3,6: INK 0,1: BORDER ir GOTO 120 
300 GOTO 770 
"310 INK 1,INT(24#RND): INK 2, INT(ZAHRNDI :a=INT iZ&=RNDISs INK O,a:rEüORDER a:50T0 2&0 
320 INK 2,20: INK 3,6: INK 0,1: BORDER i 


| ‚Auftrag für Gelegenheitsanzeigen in „Compute mit...“ 


Name und Adresse 









An „Compute mit ...“ 
Troric-Verlag 
Postfach 

3444 Wehretal 1 





Unterschrift Datum 


Unter der Rubrik „Kleinanzeigen‘- Ich wünsche folgenden Text zu veröffentlichen: 

veröffentlichen wir Gelegenheits- 

anzeigen für  Verkaufsangebote, LI III LI ELLE TE SELL ELLI 
Kauf- und Tauschgesuche, Kontakt- LI I I SANS ASIA SEE ISA AA TI T TI T T | 


aumalmer, 3ER SE ENEIB 22 BEI a Spe2S 1ER JE Jess 1742 Be TER ME 
austausch usw. 


Aktuell; ER Re IE RR OL an ae 0 DR Pe Ti EN De ER Da DE RN A 
Unsere Preise für „Kleinanzeigen“: 
‚jede Kleinanzeige nur 10,- DM erPrIErFeRfe FRDERFELFFFPRFPRERI 


‚jede gewerbliche - TB LE a RE an ER a WA Io VL LU DA 10 a DL VERTRIEB NE ee EN 
Gefegenheitsanzeige nur 15,- DM RT Be BR oa Br ES PB 0 DR BI A TR Ur DIR a BEE RN EI I BR BR ER 
{dürfen nicht unter Chiffre erschei- 


nen) ER Dr a OR I DE BF Ds a ES a N BT ee ER 
Eine Veröftenflichungerfolgt nurge- [I I III LTE III ST ELLE EL ELII EEE T 


gen Vorkassel 












Zutreffendes ankreuzen 


Kleinanzeigen jetzt suche D Software suche [] Hardware O Tausch U Versch. 
noch preiswerter biete an D] Software biete an [] Hardware E] Kontakte DI) Chiffre 
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hardware 


Der neue Schneider CPC 664 


Daß dies - entgegen aller Zweifel - 
gelungen ist, zeigen folgende Zahlen: 
Anfang April waren rund 80 000 Ge- 
räte im Markt; die aktuellen Verkaufs- 
zahlen signalisieren, daß die 
100 000-Schwelle demnächst über- 
schritten wird. Der Schneider Com- 
puter ist die Nr. 2 nach dem Markt- 
führer. 

Heute hat sich im Schneider-Com- 
puter-Programm Nachwuchs einge- 
stellt: 

Ein Gerät, das der Nachfrage mit 
Sicherheit weitere Impulse geben 
und entscheidend dazu beitragen 
wird, die Marktposition der Schnei- 
der-Computer-Familie zu festigen 
und weiter auszubauen. 

Ausgestattet mit den gleichen, her- 
vorragendeh Leistungsmerkmalen 
wie der CPC 464 bietet der GPC 664 
dem Anwender einen ganz besonde- 
ren technischen Leckerbissen: Inte- 
griert im Keyboard sorgt das Kom- 
pakte 3”-Diskettenlaufwerk für blitz- 
schnelies Laden und Speichern von 
umlangreichen Programmen und 
großen Datenmengen. 

Die Speicherkapazität je Disketten- 
seite beträgt 180 KB, die Übertra- 
gungsrate 250 KBit pro Sekunde. 
Wem das noch immer nicht reicht, der 
kann ein 2. Floppylaufwerk anschlie- 
Ben, das im Rahmen des umfangrei- 
chen Peripherie-Programmes . von 
Schneider angeboten wird. 

Mit zum Lieferumfang des GPC 664 
gehört eine Diskette mit CP/M 2.2 
und LOGO in der Version Dr. LOGO 
von Digital Research, „Software des 
Jahres“ 1984. 

Mit GP/M, dem Standard-Betriebs- 
system für 8 Bit-Rechner, hat der 
Anwender Zugriff zu einem breiten 


Software-Angebot. Mit Dr. LOGO. 


wird das Programmieren schneller 
und komfortabler. 

Der EPG 664 wäre nicht von Schnei- 
der, würde nicht auch hier ein gerade- 
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zu sensationelles Preis-/Leistungs- 
verhältnis geboten: 

Komplett mit Monochrom-Monitor, 
integriertem Floppy-Laufwerk, 
CP/M, Dr. LOGO und ca. 480seiti- 
gem Benutzerhandbuch kostet das 
Gerät ganze DM 1 498,-; mit Color- 
Monitor DM 1 998,-. 

Der Schneider GPC 664 wendet sich 
an ambitionierte Einsteiger, an Auf- 
steiger von Jleistungsschwächeren 


Rechnern und an Anwender im pro- 
fessionellen/gewerblichen Bereich. 
Zusammen mit der bestehenden Pe- 
ripherie — Schneider Matrix Printer 
„NLQ 401*, 2. Diskettenlaufwerk, 
CPC Arbeitstisch eic. sowie mit ei- 
nem umfangreichen, ständig steigen- 
den Software- und Literaturangebot 
seizt der GPC 664 neue Maßstäbe in 
Leistung und Preiswürdigkeit. 





Technische Daten 





Keyboard 


32 K ROM für BASIC und Betriebs- 
system, 64 KRAM, davon 42 K frei 
verfügbar, Mikroprocessor Z 80 A, 
Programmiersprachen: BASIC (inte- 
griert), Pascal, LOGO, Assembler 
nachrüstbar. 

Tastatur. Echte Schreibmaschinen- 
tastatur (QWERTY), nachrüstbar auf 
DIN {QWERTZ); 32 Funktionsta- 
sten, programmierbar, separater 
t0er-Block und Cursor-Block mit 
Copy Cursor. ) 

Wahlweise 20/40/80 Zeichen pro 
Zeile; 25 Zeilen. ° 

27 Farben (bei Mode 0). 
Grafikauflösung 640 x 200 Pixel. 
Tongenerator über 8 Oktaven, 3 Ka- 
näle, Geräuschgenerator, Stereoton 
über Hifi-Anlage, eingebauter 
Mono-Lautsprecher. 

1 Parallelschnittstelle, 
kompatibel. 

4 eingebaute Timer. 
Fenster - bis zu acht Fenster für Text 
und 1 Fenster für Graphik definierbar. 
Schnelles, erheblich erweitertes 
Standard-BASIG; Interrupt-Befehle. 
(Multiskating); Strukturierung durch 
IF... THEN :.. ELSE, WHILE 
... WEND. 


Gentronics 


GOsmaußs mißb 


Floppy-Laufwerk 


Im Keyboard integriertes, kompaktes 
3"-Diskettenlaufwerk; Übertragungs- 
rate 250 KBit/sec. 
Speicherkapazität je Diskettenseite 
180 KB. 

2. Laufwerk anschließbar. 


Monitor 


Wahlweise 12” Monochrom oder 14” 
Color. 

Stromversorgung über Monitor. 
Helligkeits-/Kontrast-Regler. 


Lieferumfang 


Komplett mit Keyboard, integriertem 
Floppy-Laufwerk, Monitor (wahlwei- 
se Monochrom oder Color), ca. 480 
Seiten starkes Benutzerhandbuch, 
GP/M 2.2, Dr. LOGO und Demo- 
Diskette, 


er a er 


In einer unserer nächsten Ausga- 
ben werden wir einen Testbericht 
über diesen neuen Personalcom- 
puter aus dem Hause Schneider 
veröffentlichen. 
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__programme 


2190 "lm nit 
2200 ’*#* Home-Fuel #*%* 
ZPIO "RN — mn #EE 


2220 IF x=34 AND b=3 THEN 2230 ELSE GOTO 2270 

2230 SOUND 2,550,220,4,0,3 

2240 FOR i=1 TO 140 STEP 2:PLOT 1,372,2:DRAW i,378,2:2NEXT i 

2250 FOR i=140 TO 640 STEP 2:PLOT i,372,3:DRAW i,378,3:NEXT i 
2280 fuel=440 

2270 IF schatz=10 THEN sc=sc+1000: INK 3,24:B0OSUB 3840: GUOSUB 1090 
2280 SOUND 2,30,0,0,1 

2290 RETURN 


2300 He; =; ;— .  ;— >... =?— 
2310 '##= Raketen / Treffer x%* 
2320 '## Subroutine #rr 
2330 lem men “rr 


=3409 IF y>17 THEN RETURN 

2350 IF b=1 THEN GÜTD 2410 

2350 IF b=3 THEN GOTO 2520 

=370 IF b=2 THEN RETURN 

2380 7 on nenn 

23570 " Rakete rechts E 
2400 ° mu 

2310 SDUND 1,0,30,5,0,0,5:250UND 2,0,30,4,0,0,15 

2420 DIre=sx+t2:dey:FÜR ce TO 40:LOCATE c,dıPEN 1:FRINT raket#(1)3 
2456 IF ertc,d’3=1 THEN poi=1:60T0 2650 

2440 IF certc,d)=2 THEN poi=2:B0T0 2650 

2450 IF eric,d?=3 THEN poi=3:6010 2650 

2440 IF cr (c,d>=4 THEN poi=4:6070 27450 

2470 FOR t=1 TO 8:NEXT:LOCATE c„d:FRINT" ":NEXT c 

2480 LOCATE c,dıPRINT" "sEISRETURN 

AIG 77mm 

Z2X%0 * Rakete links 

2510 ° -——--- [11 

2520 IF x<2 THEN RETURN 

2530 SOUND 1,0,30,5,0,0,5:S0UND 2,0,30,440,0,15 

2540 DIzd=y:FOR e=ix-1) TO 1 STEF -tıc=e:IF c<il THEN c=i 

2550 LOEATE c,d:PEN i1:PRINT raket$(2)3 

2360 IF cr ic,d}=1 THEN poi=1:G0T0 2450 

2570 IF crtc,d3=2 THEN poi=2:60T0 26550 

25809 IF cr{c,d?=3 THEN poi=3:60T0 2550 

2570 IF crtic,d3=4 THEN poi=4:G60TD 24558 

2800 FOR t=1 TO 8:NEXTSLOCATE c,dıPRINT” "ıNEXT e 

zZa10 LOCATE c,d=:PRINT" "»EI:RETURN 

220 ' 

2630 ' Treffer 

240 ° nn 

2550 LOCATE €©,d:PRINT treff$z : 

2660 SOUND 1,500,0,0,1,0,5250UND 2,0,0,0,1,0,7 

2670 FOR t=1 TD 200:NEXTSLOCATE c,d=sPRINT" "3 

2680 IF poi=1 THEN sc=sc-S:poi=0:cr (c,d)=0 i 
2690 IF poi=2 THEN sc=sc+t25:poi=0:cr (e ,d)=0:LDECATE c,d:PRINT" "schangei=1 
2700 IF poi=3 THEN sc=sc#2S:poi=0: cr (c,d)=0:LOCATE e,d=PRINT" "schange2=1 
27106 IF poi=4 THEN poi=0:60SUB 1220 

2720 EI:RETURN 

2730 "Rain nn tt 

2740 '%%#* Interrupt-Routine #** 

2750 'as= Feind-Angriffe “r 


2760 "RR nm HR 

2770 DIESIF tar ia,y)=2 OR er ix#+1,y?=2) THEN LOCATE #ri,tyisPRINT" "ssdeir=Sscra 
sh=1:changel=t - 

2780 IF ter ix,y)=3 DR crtix+1,y)=3) THEN LOCATE #x2,Fy2: PRINT" “ıadelr=Sscrash> 
1:change2=1 

2790 LOCATE fxi,Fyi:PRINT" "sertfxi1,fyl)=0:tfxlefri-l 


2800 LOCATE #x2,fy2:PRINT" Yserifa2,ty23=ßsfxzetfztl 
2810 IF fx1<=1 THEN changei=1 n 

2820 IF #x2>=39 THEN change?=1 

2850 IF changei=1 THEN fx1=38s fy1=INT{RND#*T) +3: fa=INT(RND#ZI +1: changel=Q 
2840 IF change?=1 THEN fx2=2: fyZ2=INT {RND#7) +3: change?=0 


8185 Compufe mif an 


50 


28950 
2850 
2870 
2580 
2290 
2700 
23710 
2920 
2930 
2940 
29530 
29780 
2770 
2980 
2990 
3000 
5610 
3020 
30630 
3040 


3050 
3040 
3070 
3080 
30970 
31006 
3110 
3120 
31306 
35140 
3150 
Ssiä0 
=170 
si180 
3199 
S200 
3210 


LOCATE fxi1,fy1:PEN 2:PRINT feind$ (fa); 


serifal,fyl)=z 


LOCATE fx2, y2ı PEN ZIPRINT feind$(3)5 2er (fx2,Fy2)=3 


RETURN 


"*#%* Interrupt-Ruutine #*%* 
"RER Tueren auf/zu a 
mn ki 


IF z1=1 AND 27=0 THEN zi=0:2?2=1 ELSE zi=1l:ır?=0 


PEN 3:DI 


LOCATE 7,11:PRINT tueri$(zi) 


sscr (7 ,i13=2z1 


LOCATE 7,172PRINT tueri$tz2)312cr (7,17)=z2 
LOCATE 35,20:PRINT tuerSfizl)sscr (39,20) =z 11er t35,20)=21 
LICATE 24,21:FRINT tuer2#(zi1)stcor {24,21)=Z1 


LOCATE 4,22:PRINT tuer2$ (21) 


sscriä,22)=zl 


LOCATE 183,235:PRINT tuer2$ (22); :c0r 114,29 =22 
LOCATE 31,23:PRINT tuer3# (22) 5; :cr (31,29) =22:cr (32,23) =z2 
LOCATE 25,24: PRINT tuer2# 122) 4 1cr (25,24) =22 
LOCATE 40,24: PRINT tuer2#(z2) 3 :cr (409,24) =22 
LOCATE 198,25:PRINT tuerzZ#$(zl)sscert18,29)=zi 


IF (b<>2 AND erix+1,y3=1) THEN delr=2:crash=1 ELSE IF er (x,y)=1 THEN delr=t 
scrash>=t 


EI:RETURN 


rei=REMAIN{DI:reZ=REMAIN {Z) sreZ=REMAIN (33 


IF delr=3 THEN or (x,y)=0scor (x+1,y)=0 


programme 


IF delr=1 THEN cr (x,y)=0 ELSE IF delr=2 THEN or (x+1,y)=0 


liv=liv-ircrash=0: INK 
LOCATE 
IF t=1 
LOCATE 


NEXT + 
LOCATE x ,„y:PRINT del#(b) 
PLOT i,372,0:DRAW i 


S,24:FOR t=1 TO 10 
“4,y:PEN i:FRINT copt#ihb); 

OR t=3 THEN SOUND 3,0,25,14,0,0,10 
R,y=PEN 1:PRINT crashr(ib)y 

IF t=4 THEN SDUND 2,0,20,15,0,0,14 


;:FOR i=fuel TOD 8 STER —2 
‚>7B,0:sc=sc+tl:NEXT i 


[LS #1:605UB 1380: B0OSUB 1770: 60SUB 1090: RESTORE 35709 j 3 
IF l1iv>O THEN ix=34: jy=12: jbs3:x=jns yajyıbzibıreisüsrersd:res=scı SDTO 16909 


G SOSUB 1550: hil=thisc MÜD 25ä)ıhiz= 
POKE 30000,h12:2POKE 30001,hii 
FOR t>=1 10" SOÖ:NEXT:FÄAFER S:PEN 0. 


INFih1sc/255) 


LÜUCATE 14,5:PRINT SPADEF (LS) S:LOCATE 14,5: PRINT SPACE$ LS; 
LOCATE 14,72FRINT SFACEF(15}3 I LOCATE 14 „ergo#=" * Game over # " 


FOR 3=1 10 LEN (go$#) 
FRINT MIDFtgo#,i,1}3 


DN BREAK GDSUB 3490 


:SDUND 2,450,10,15,0,1 
IF (SB(2} AND 129) =128 THEN 3320 y 
O NEXT i:FOR t=1 TO 3J000:NEXT t 


MODE 1:PAPER O:PEN 3:BORDER O:INK 0,0: INK 1,242 INK 2,143INK 3,8 
LOCATE 7,2:PEN 5:PRINT">>>>> COPTER —- PATROL SiSic" 


LOCATE 7,35PEN Z24PRINT"— 
LOCATE 10,5:3PEN 1:PRINT"Your SCOREsS"s:PEN ?4PRINT sc 


I rt m m a a m en a mr 


LOCATE 10,85PEN 17 PRINT"HISH-SCORE: "3: PEN ZsPRINT hisc 


LOCATE 4, 12: PEN 


3: PRINT"LIENTER] 


“"ssPEN Z=:PRINT"or "53 


FEN 3: PRINT" LSPACEI "4=FPEN 22FRINT"Music on/orf” 


LOECATE 3,15: PRINT "Controls: 


n:PEN F:FRINT"Joystick 


PEN ZePRINT"or "s:PEN 3:PRINT"Cursor-keys" 
LOCATE 3,195 FEN 2:FPRINT"Fress [FIRE] or [COPY to playanat, 
LGCATE 9,22: PEN 3:PRINT"Press [EI to end." 

IF JOY(O}=16& DR INKEY(MN=O THEN ELEARSRUN 550 
IF INKEY(58)=0 THEN MODE 1:FAFER O:FEN 1:CALL &BCO2: CLEARTEND 


GOTB 3450 
RUN: RETURN: "Break-Taste 


7 an ar m m 


—azzu man aD or rezozıomemmm—. 


Compube mib 
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programme_ 


3510 Ht---— ——- AR 
3520 °### Music #8#* 
3330 min. *#% 


5549 READ tan,dauer: IF ton==1 THEN RESTORE 3570:RETURN 
3350 SOUND 4,ton,„dauer „0,2 

5550 RETURN 

3570 DATA 239,20,179,20,179,20,159,20,142,20,179,20,1432,20 
3580 DATA 159,20,239,20,179,20,179,20,159,20,142,20,177,40 
3590 DATA 190,45,239,20,179,20,179,20,159,20,142,20,154,20 
3600 DATA 142,20,159,209,179,20,170,20,239,20,215,20,170,20 
Ssalü DATA 179,40,179,45,213,20,190,20,213,20,239,20,213,20 
Sa20 DATA 1970,20,179,20,213,20,239,20,213,20,239,20,2688,20 
3530 DATA 284,940,239,45,213,20,190,20,213,20,739,20,213,20 
3640 DATA 190,20,179,20,213,20,2397,20,179,20,170,20,159,20 
3450 DATA 1797,40,177,60,142,40,142,30,134,20,154,20,142,20 
3650 DATA 134,20,142,20,159,20,179,20,190,22,239,20,213,20 
35670 DATA 179,20,239,20,239,20,213,20,179,20,159,20,134,20 
3680 DATA 142,35,179,45,159,60,142,40,142,50,154,20,134,70 
370 DATA 142,20,134,20,142,20,159,20,177,20,190,22,2397,20 
3700 DATA 213,20,179,20,239,20,2397,20,213,20,179,20,159,20 
5710 DATA 134,25,142,40,159,50,179,100,179,20,179,20,179,50 
3720 DATA 239,20,142,720,142,20,142,50,179,20,179,20,142,20 
5750 DATA 119,20,119,20,134,20,142,20,159,20,157,20,142,20 
3740 DATA 134,20,134,20,154,20,117,20,133,20,142,20,179,20 
3750 DATA 179,20,142,20,159,20,239 ,20,239,20,170,20,159,20 
3760 DATA 179,80,179,20,179,20,179,50,239,20,142,20,142,20 
3770 DATA 142,50,179,20,1797,20,142,20,119,20,119,20,134,20 
#780 DATA 142,20,159,20,159,20,142,20,134,20,134,20,134,20 
5790 DATA 117,20,134,20,142,20,177,20,179,20,142,20,1597,20 
3200 DATA 259,20,239,20,190,20,159,20,179,100,-1,0 


3210 Hi 
3820 'x#* GSiegeshynmne ##%# 
SB3O "Hk nn ERH 


3840 RESTORE 3840:SQUND 4,0,50,0:FOR i=1 TO 17:READ t,d 

3850 SOUND 4,t,d*6,0,1:NEXT isRESTORE 3570: RETURN 

3860 DATA 239,8,319,6,239,4,319,3,190,3,159,5,190,4,159,3 

3870 DATA 190,3,159,3,127,6,319,6,0,0.5,317,4,0,0.5,319,4,239,8 


SBIO "aim nem 

3870 '#** Definition der Grafikzeichen x** 

3I00 At mm 

3710 SYMBOL AFTER 200 

3920 SYMBOL 200,15,0,1,67,255,79,3,0: "Hubschrauber 3 
3930 SYMBOL 201,190,64,252,226,233,255,254,154:2 “Hubschrauber 2 
3740 SYMBOL 202,239,16,56,68,145,754,124,198: "Hubschrauber 3 
3950 SYMBOL 203,125,2,63,71,151,795,127,37: "Hubschrauber # 
>97&0 SYMBOL 204,240,0,128,194,255,242,192,0: "Hubschrauber 5 
3970 SYMBOL 208,0,0,0,0,134,125,134,0: "Rakete rechts 
59780 SYMBOL 709,0,0,0,0,77,1970,97 ,0: "Rakete links 
3990 SYMBOL 210,0,0,0,15,19,127,184,177: "Flugzeug 1 
4000 SYMBOL 711,0,0,0,255,34,255,0,2553 "Flugzeug 2 
4010 SYMBOL 212,28,36,124,252,255,254,15,2572: "Flugzeug 3 
4020 SYMBOL 215,255,255,255, 259, 255,255, 255,255: 'Fels i 

4030 SYMBOL 214,3,15,31,31,31,127,259,258: ’Fels 2 

A040 SYMBOL 219,1268,179,189,255,129,127,129,255: "Haus i 

4050 SYMBOL 220,125,129,129,129,129,1297,129,126: "Haus 2 

A080 SYMBOL 221,0,60,126,129,129,255,165,126: "Haus 7 

4070 SYMBOL 222,0,102,102,0,0,102,102,0: "Fenster-Licht 


A080 SYMBOL 223,255,170,255,170,255,170,85,170: "Stadt-Oberflaeche 
4090 SYMBOL 223,259,90,255,170,213,170,213,255: "Basis-Oberflaeche 
#100 SYMBOL 225,112,24B8,1648,2154,253,7223,173,248: "Tankstelle 

41106 SYMBOL 227,28,30,23,19,16,16,15,56: "Wetterfahne 

4120 SYMBOL 228,0,16,145,84,56,56,16,124: "Antenne 

4130 SYMmBülL 229,255,153,153,255,135,135,135,1355: Basis 1 

4146 SYMBOL 230,255, 129,259,153,1553,255,255,129: 'Basis 2 

4150 SYMBOL 231,255,1537,153,255,153,153,255,129: "Basis 3 

4150 SYMBOL 232,12,30,99,205,858,141,111,50s "Crash 1 

4170 SYMBOL 235,90,188,238,182,29,115,174,100: "Crash 2 
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hardware _ 


#180 SYMBOL 234,54,91,79,162,233,69,155,102s "Crash 2 
&190 SYMBOL 240,170,255,170,85,85,170,255,85: "Untergrund 
4200 SYMBOL 241,90,165,90,36,126,24,23,60: "Schatz 1 
4210 SYMBOL 242,129,90,165,90,219,165,255,70: "Schatz 2 
4220 SYMBOL 243,0,24,165,126,231,90,102,12&: "Schatz 3 
4230 SYMBOL 244,24,126,60,36,126,90,255,153: "Schatz 4 
4240 SYMBOL 245,0,165,255,73,146,255,165,05 "Tuer 1 
4250 SYMBOL 246,119,44,102,52,44,102,52,110: 'Tuer 2 
4260 copt$t1)=CHR$ 1200) +CHRS (201) 


4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4350 
4370 
4380 
4390 
4400 
4410 
4420 
AAFO 
4440 
4350 
2450 
4470 
4480 
4490 
4500 
4510 
4520 


copt# 2} =CHR$ (207) 


crasht (2) =CHRE (234) 


raket${1)=CHR# (208) 
raket$ (2) =CHR& (209) 
tretff#=CHRF# (234) 


del#fil)=" " 
del#{i2)=" " 
delstiF)="t" * 

ENV 1,12,-1,6 

ENV 2,3,5,1,15,71,5 
ENT 1,20,5,1,20,-5,1 
ENT 2,100,-4,1 

ENT 3,110,-5,2 
RETURN 

RRESRERERREH 


++ Ende #*# 
ERUHNRHENIEN 





Dis: Schnittstelle ist nicht an ir- 
gendeine bestimmte Aufgabe gebun- 
den, sorıdern die Möglichkeit, sie frei 
zu programmieren, setzt der Anwen- 
dung zusammen mit Ihrem 
SCHNEIDER CPC-464 praktisch 
keine Grenzen. Ein intelligenter Bau- 
stein verhilft VALCOM 1 zu erstaun- 
lichen Fähigkeiten, auf gie wir jetzt im 
einzelnen eingehen möchten. 
Funktionen: Bei entsprechender Pro- 
grammierung {in Basic über den 
INP- und QUT-Befehl oder selbst- 
verständlich auch in Assembler) 

- entsprechende Beispielprogramme 
werden kostenfrei mitgeliefert 

-kann die Schnittstelle folgende 
Aufgaben wahrnehmen: 


Rechner-Rechnerkopplung 

Sie können mit zwei SCHNEIDER 
CPC-464 Daten direkt austauschen 
(sehr schneller Datenaustausch, be- 
deutend schneller als das Floppylauf- 
werk des bis jetzt populärsten 


copt$ (3) =CHR$ (203) +CHR$ (204) 
topt#(A)=coptst1)+" "+copttil)+" "+copts(l) 
cerash$ 1) =CHR$ (232) +CHR$ (233) 


cr ash# {3) =SCHR$ (2323 +CHRS$ (233) 


F=CHREF (2109 +CHRE (211) +CHRS$ (212) 

tfeindF (i)ef#:teind# (2) =copt# (F) sfeinds (D=coptttl) 
tuer1F (1) =CHRF 1245) 3stueriFto)=" 

tuer?2£ (13 =CHR& (248) 2 tuer2$t0)=" * 

tuer 3# (1) =CHRE (245) +CHR$ (245) : tuerZs to)" 


NEU: VALCOM 1 









Die RS 232/V 24-Schnittstelle für den 
SCHNEIDER CPC-464 | 


Sie haben die 


Heimcomputers). 
Möglichkeit, mit größeren Computern 
in Verbindung zu treten, z. B. von 


CP/M-Personalcomputen Daten 
USW. zu übernehmen und zu übertra- 
gen. 


Druckerschnittstelle 

Mit VALCOM können Sie selbstver- 
ständlich einen seriellen Drucker be- 
treiben. 


Akustikkoppler/Modem 

Mit handelsüblichen Akustikkopplern 
können Sie über Telefon Kontakt mit 
anderen Computern (egal welcher 
Marke) in aller Weit aufnehmen und 
Daten austauschen. Ihnen werden 
völlig neue Dimensionen mit Ihrem 
CPC-464 erschlossen. 


Intelligentes Farbterminal 

VALGOM macht den SCHNEIDER 
zu einem Farbterminal. Sie können 
z. B. Einplatinencomputer ohne eige- 
ne Tastatur und Monitor über Tasta- 


Bompure mib 


tur und Monitor des GPC betreiben. 
Genauso kann er als Terminal eines 
PCs oder Großrechners betrieben 
werden. 


Anschluß 

Die Schnittstelle wird an den Expan- 
sionsport des CPCs angesteckt und 
verfügt über einen. durchgeführten 
Bus, um den Betrieb von weiterer 
Peripherie ohne ständiges Umstek- 
ken zu ermöglichen. VALCOM Iäßt 
sich gleichzeitig mit dem Disketten- 
laufwerk DDP1 betreiben. 


Stromversorgung 

Auf der Platine ist ein Spannungs- 
wandler vorhanden, der für einen 
echten & 12-V-Pegel sorgt. 


Ausstattung 

Mit zwei Kanälen ausgerüstet, d. h., 
bei entsprechender Programmierung 
können zwei serielle Peripheriegeräte 
betrieben werden. Z. B. Akustikkopp- 
ler zusammen mit seriellem Drucker 
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und parallelem Plotter (über serien- 
mäßige Gentronicsschnittstelle). 
VALCOM 1 mit zwei Kanälen, ohne 
Anschlußkabel 


Software 

Die kostenlos zur Schnittstelle mitge- 
lieferten Beispielprogramme zeigen, 
wie einfach die Programmierung der 
Schnittstelle ist. 

Das Modemprogramm bietet jeden 
Komfort (XON/XOFF, Paritätsbit 
wählbar usw.). Damit ausgerüstet 
können Sie die meisten der handels- 
üblichen Akustikkoppier betreiben. 
Außerdem bieten wir Ihnen einen be- 
sondern Service: 

Sollte die Software zu VALCOM ver- 


Zehnmal Kreis - nicht nur für den CPC-464 


Routinen zum Kreisezeichnen sind 
sicher schon viele veröffentlicht wor- 
den. Hier werden verschiedene Mög- 
lichkeiten aufgezeigt, wie man die 
Laufzeiten der „Pseudo-Circle-Be- 
fehle“ speziell beim CPCG-464 verrin- 
gern kann. 

Die folgenden Beispiele beziehen 
sich auf das abgedruckte Listing. Mit 
diesem _Demonstrationsprogramm 


kann man die Kreise auf verschiede- _ 


ne Arten zeichnen lassen, wobei als 
Radius eine Zahl zwischen 2 und 
200, für die Exzentrität das ge- 
wünschte Achsenverhältnis (bei EI- 
lipsen 0.2 ... 5, bei Kreis =1) und für 
Form eine Zahl zwischen 1 und 10 
(die 10 verschiedenen Möglichkeiten) 
angegeben werden muß. 

Nach dem Zeichnen wird die benö- 
tigte Zeit angezeigt. In den hier be- 
schriebenen Beispielen wurde zum 
Vergleich jeweils Radius 100 und 
Exzentrität 1 angenommen. 

Mit dem Faktor k (=1.1, kann ggf. 
abweichen) erfolgt eine Korrektur der 
Bildschirmablenkung horizontal/ver- 
tikal. Beim Zeichnen von Ellipsen 
(Achsenverhältnis ungleich 1) verän- 
dert sich gegenüber dem Kreis der 
Umfang; deshalb geht e mit in die 
Schrittweite des Schleifenzählers ein.’ 
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bessert werden, so erhalten Sie eine 
Nachricht und können gegen geringe 
Unkosten die neueste Version anfor- 
dern. 


dataphon s 21 d 

Ein Akustikkoppier aus deutscher 
Fertigung mit FTZ-Nummer (also 
von der Deutschen Bundespost zu- 
gelassen) mit Answer- und Originate- 
Modus, Voll- und Halbduplex und 
die entsprechenden Anzeigeleucht- 
dioden. 

Der Koppler paßt sich sehr qui den 
üblichen Telefonhörern an, läßt sich 
also praktisch mit allen Telefonen, 
außer „exotischen“ wie Modell 
„Lyon“ usw., verwenden. 


Da bei kleinen Kreisen die Pixeigröße 
relativ groß ist, wird die Schrittweite 
mit der Variablen r an das erforderli- 
che Mindestmaß angepaßt. Diese 
Laufzeitoptimierungen sind in alien 
Beispielen enthalten. 

1. Kreiszeichnung wie im Anleitungs- 
buch, allerdings unter Verwendung 
von Bogenmaß. Bei entsprechender 
Auflösung wird eine Zeit von 26,05 
sec zum Zeichnen benötigt. Der 
CPC-464 läßt sich für die Winkel- 
funktionen auf Altgrad umschalten 
(DEG), so daß man dann bei den 
meisten Schleifen (360 Grad anstatt 
.2mal Pl) ein Integerschleifenzähler 
verwendet werden kann. Der Zeitge- 
winn ist allerdings im Verhältnis zu 
den anderen Maßnahmen relativ 
klein. 

2. Bei Verwendung des DRAW-Be- 
fehles zwischen den Kreispunkten 
läßt sich die Schrittweite vergrößern 
und die Zeit gegenüber 1. auf 11,57 
sec verringern. 

3. Der größte Teil der Zeit wird für die 
Sinus-/Cosinus-Berechnungen be- 
nötigt. Hier wird nur noch bis PI/2 
gerechnet (also ein Viertelkreis) und 
die Sinus- und Gosinuswerte auf vier 
Kreisviertel verteilt. Hiermit läßt sich 
bei gleicher Auflösung wie bei 1. die 


Oamatupr mi 


werkstatt 
Komplettangebot 


Für diejenigen unter Ihnen, die vor 
allen Dingen am Betrieb eines Aku- 
stikkopplers am SCHNEIDER inter- 
essiert sind, bietet die Firma VALC- 
Computer-Shop, Waaggasse 4, 
8230 Bad Reichenhall, Tel. 0 86 51 / 
6 67 73 folgendes Komplettangebot: 
Einführungspreis: 

VALCOM1 (DM 249,-) + dataphon 
s21d{DM 298,-) + Modemsoftwa- 
re (DM 74,90) + Kabel (ca. DM 
20,-) nur DM 538,-. 

Bitte beachten Sie, daß der Akustik- 
koppler dataphon s 21 d ohne Netz- 
teil und Batterie geliefert wird. 


Zeit auf 7,8 sec verringern (DRAW ist 
hier ungeeignet). 
4. Die klassische Ersatzlösung, eine 
Kreisfläche zu zeichnen, erreicht man 
durch entsprechend viele DRAW-Be- 
fehle, welche Kreisradien einzeich- 
nen. Obwohl das Beispiel in Zeile 
400 mehr Schritte macht als in Zeile 
100, wird der Kreis nicht komplett 
ausgefüllt. Die Zeit hierfür beträgt 
31,2 sec. 
5. Hier wird die Schleifenberechnung 
nur bis Pi ausgeführt und mittels 
DRAW die Fläche zwischen zwei 
Halbkreisinformationen zum Vollkreis 
gefüllt. Zeit: 13,1 sec, 
6. Verkürzt man die Berechnung auf 
den Viertelkreis (P}/2), werden zwar 
doppelt soviel Striche gezeichnet, 
aber die Zeit trotzdem nochmals ver- 
kürzt (8,58 sec). 
7. Verläßt man die Kreisberechnung 
nach der Sinus-/Cosinusfunktion 
und arbeitet mit der geometrischen 
Kreisgleichung 

R=x+y, 
benötigt man mit der daraus entwik- 
kelten Form 
y-t+ 

yr = x? 

nur noch eine Schrittweite, die der 
Auflösung des Videosignales, d.h. 


53 








programme 


also der Zeilenzahl, angepaßt werden 
muß. Die Kreisfläche wird in 2,68 sec 
gezeichnet. 

8. Setzt man allerdings die Kreisglei- 
chung für den unausgefüllten Kreis 
ein, so erhält man selbst bei Verklei- 
nerung der Schrittweite um das 
.Zwanzigfache an den oberen und un- 
teren Enden eine ungenügend ge- 
schlossene Zeichnung (Zeit: 49,85 
sec). 


310 MODE Zik=1.i 


9. Die Anpassung der Kreisgleichung 
an eine auf den Kreisumfang bezoge- 
ne lineare Teilung erfordert die Si- 
nusfunktion. Bei angepaßter Schritt- 
weite wird aber mehr Zeit (+ 2,6 sec) 
benötigt, als bei 3,, nämlich 10,4 sec. 
10. Zum Schluß wird noch eine Spe- 
zialität vorgestellt, die sich wegen der 
erforderlichen linearen Teilung auf 


der X-Achse nur mit der Kreisglei-- 


z0 INPUT "Radius, Exzentritaet, Formti...10)? "r.o,f 
so IF f>10 OR f<1l OR e=0 OR r<2 THEN RUN 


40 el=ze:IF ei<i THEN ei=1 
50 ORIGIN 320,200 
5093 a=TIME 


&0 ON # GOSUR 100,200,300,400,500,600,700,800,900,1000 


#5 PRINT (TIME-a} 7300; 
70 END 


chung verwirklichen läßt. Es wird eine 
Kreisfläche gezeichnet, bei der jede 2. 
Grafik-Spalte ausgelassen wird; es 
ergibt sich eine feine Rasterfläche - 
eine sicherlich nützliche Erweiterung 
für Grafik im einfarbigen MODE 2. 
Bei Anwendung im MODE 1 muß die 
Ziffer 2 hinter der Stepanweisung in 
Zeile 1000 in eine 4 geändert werden 
(Zeit: 2,89 sec). 


100 FÜR j=9 TD PlI#Z STEP 1/r/el:x=SINtj)arserkı y=COStj)r PLOT X 4Yy3NEXT=RETURN 


200 MOVE O,r:FOR j=6 TO PI#2 STEP LOS ir} /r/e1/2:x=SIN tj)r#erkty=COS ters DRAW x 
„y: NEXT: RETURN 

300 FDR j=0 TOD P1/2 STEP 1/r /elrx=SINt Der: y=COStj’erserk:PLOT-y,x: PLOT Yıxs PLOT 
=Yu7Xxs PLOT yı-x:NEXT:RETURN 

400 FOR j=0 TO PI*2 STEF LOGtr}/r/el/4:MOVE 0,0:x=5IN (j)erserk:y=C0St3)erı DRAW x 


„ysNEXT:RETURN 


=00 MOVE O,r:FOR i=0 TO PI STEP LOG (Pr) /r/e1/4:3=5IN(Jj) rreskı y=C0OS(j) er: DRAW Kıy 


»DRAW -x „yıNEXT:RETURN 


&090 MOVE O,r:FOÖR j=0 TO PI/2 STEP LOG (N) /r /e1/4:x=SIN( j) #r#eskı y=COStCh) rs DRAW * 
„y:DRAW -x,y:DRAW -x,-yaDRAW x ,-yıNEXT:RETURN 
‚7090 FOR j=0 TO r STEP 2/el:x=j:y=5SQR (r*2-4"2) serkı MOVE -YıX3 DRAW YxıMOVE -y,—xi 


DRAW Y,-x:NEXT: RETURN 


800 FOR j=Ö TO r STEP 0.1/el:x=j:y=SOR (r”2-j7Z2)%eskı PLOT-y,n:PLOT YıxzPLOT -yı—x 


:PLOT y,=x:NEXT:RETURN 


900 FOR. j=0 TD PFI/Z2 STEP 1/r/el:x=5SINtj) er. y-5ßRir”2-r 


FLOT -yı=x3PLOT y,-x2NEXTERETURN 
1000 FOR j=0 TO r STEP 2/e:x=j*ery=BOR (r*2-1°2) /kaMOVE 3 3-ysDRAW x,yaMOVE -xy-ya 


DRAW x „y3iNEXT=ZRETURN 





In Illustrierten und Rätselzeitungen 
wird hin und wieder ein Rätsel ange- 
boten, das die Konzentration und Be- 
obachtung schult: In einem Rechteck 
voller Buchstaben sind eine Anzahl 
Wörter versteckt, die geradlinig in 
acht Richtungen laufen können: 


waagrecht, senkrecht und diagonal, 
jeweils vorwärts und rückwärts, 

Dieses Programm realisiert das Rät- 
seispiel auf dem neuen Schneider. 
CPC 464. Die Größe des Feldes ist 
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auf 40 mal 24 Buchstaben festgelegt. 
Sie können wählen, wieviele Wörter 
Sie verstecken wollen {1 bis 20). Nun 
werden die Wörter eingegeben (das 
könnte ein „Gegenspieler“ tun). Hier 
sollte der „Eingeber“ bedenken, daß 
Wörter mit drei oder zwei Buchstaben 
zufällig entstehen können. Diese 
dann später zu finden, ist reine 
Glückssache. 

Das Programm entwirft das Rätsel 
auf dem Bildschirm oder wahlweise 





Gompufe mip 


"ZIHerksPLOT-y,asPLOT y,xı 





auf einem Drucker, Ebenfalls gibt es 
die Möglichkeit, sich die Lösung 
ausdrucken zu lassen. Das Pro- 
gramm wurde ursprünglich für einen 
Epson-Drucker geschrieben, bei ei- 
nem anderen Drucker sollte man die 
Zeile 1120 weglassen. Der Code 
CHR$ (14) ermöglicht bei den mei- 
sten Druckern Breitschrift. Sollte der 
verwendete Drucker diesen Modus 
nicht besitzen, so kann auch dieser 
Befehl weggelassen werden. 
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Rätsel: 


| PPEYDTLCCZEGOLJWTMTFYZLOGOBABIDVYDUZLCURIETL] 
KMTPECRSONKVRRTGEILENNTTGSCYSEUHKAVYST MAL | 
CIFKEOXAZGJBDWEITJIZITGRLCOLOAIITHROSRA 
MEZSVCVYUGRDOWUSMPSSEUHRSBVYHOLURWELDMUUMEC 
J[ARIHIECEMIBFATGAYATVYVVYKMNFEDFBEIPEGXAILII 
SAFSTJTBRBRINSERMBGTCSDANIASECRFEUGFWJIRPPUHTIMZ| 
IMRERAPTITACUIVUXJFGSXDILICROEOUIBIKARYMNPW 
IIARTZVRHEVOHRT ZEBWEVDVZVYMVEREEMUWKWUDER | 
LBWRBEBRVPEASAPOFJIDEOAEDECEDOPLHLYOTOALWWS | 
NEIERWYXIMPNUEMTCIMRBIYKVNOROFSLBFRIOTLIH 
UOASSETTEWPMIPYOURBAWSZIRMGBCZAARORLELBRN | 
FORSEEFVYWLBOMMIWATRUFKEPROMBOABFESLEMWHTJ 
WFYPPOLFWRERPARLEJWIEKESAZEUHBDRBBCMUFU 
EMIKGDNFKYNMIYSTEBEWGTURCBGCDAMOAMUSARAUL 
JDGEJ/ILPOUL_DASSSILBUNTUEEOHTJAMZWIBTRTCIK 
L_YONUFMMZEVNBIYUOBDDEITSEVDUVJEBEDGNVGI_RE | 
FEJMPHUERVCHPKEDENMI JYVEBEMEOREVYIMRLOTOBCW 
MTSFUBOAGOBRIATREYCBVEBBGIELLTDUEAVUHFRKVUD | 
JENTPGDWMPECHIPOMOUPHSGACNGZZAIFHENNPITCF 
CDCOJBASICETOPMXYDAWXGSTJG@IHSSOTHYUFDBOS 
JAXLNUEBKSLREHKOECDEVEABATCDSEROBOTDEVM 
ZT IAEWISFEDTWNRSUZUAHOFNOCFBPGSWHHRPJELGR 
UHNRI OKVOBYARRAAMSPXSDODUBKAMOAGDMOLKMA 
DZUDZENUBTIWABCEWEJCDNMZPEJJAMYAWEJIYIIJM 


Wir haben hier ein Rätsel mit abge- i 5 
druckt. Jeder Leser hat die Möglich- Folgende Worte sind zu suchen: 


keit, die gesuchten Wörter in dem | software basic Cassette array compiler programme 
Buchstabenlabyrinth herauszufinden. | hardware betriebs- diskette assembler code editor 

Die Auflösung werden wir im näch- | schneider system floppy baud chip eprom 
sten Heft bekanntgeben. animation binaer datei 





10 RR 
20 ° # SUCHRÄAETSEL CPC 464 #* 
30’ # mn * 
20° * zABEL Saft * 
0 RHHRBHSHRISHHHIIHHIHENE 
&0 ’ 

79 DIM feldt39,25) ‚wort# (19) 

80 ° 


70 MODE O:CLS:PEN 1:5BORDER 15 

1059 LOCATE 4,2:PRINT"S uch se 1" 

110 PEN 7:LOCATE 4,4:PRINT" (CI ZABEL Soft" 
120 TAGS:FOR x =0 TO 540:MOVE x „320: PRINT"\"3 NEXT x: TABOFF 
130 GDSUB 1320 

140 PEN 3:LOCATE 3,10: PRINT"maximal 20" 

150 PEN S:LOEATE 2,8:PRINT"Wieviel Worte "3 
i&0 INPUT = 

170 IF z>20 OR z<1 THEN 110 

1860 MODE 1:CLS+PEN 3 

170 PRINT" WKoerter eingeben: ":FRINT 

200 PEN 2:FOR i =6 TO z-i 

210 PRINT" Wort "i+ri;=:1INPUT wortF(i) 

220 NEXT i 

230 n=0: 'n = nummer des Wortes 

240 CLBE:PEN 3 

250 IF n?z-1 THEN 1040 

260 x=INTIRND(C1)#40) 2 'x-position Wort 
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270 
250 
290 
300 
310 
320 


y=INT(RND{1)#24) z"y-position Wort 
r=INT{RNDt1}3#8} 2 richtung kort 

IF r=6 OR r=1 OR r=7 THEN IF x+LEN(wort#(n)) >39 THEN 250 
IF r=3 OR r=4 OR r=5 THEN IF x-LENtwort$(n}}<i THEN 250 
IF r=1 OR r=2 OR r=3 THEN IF Y-LEN (wort#in))<i THEN 250 
IF r=5 OR r=4 OR r=7 THEN IF Y+LEN twart&#i{n)) >23 THEN 250 


339 IF r<>ö0 THEN 400 

340 merke=0 ıflag=0 

350 FOR i=1 TO LENiwort$(n)) 

560 IF feld(x+i-1,y)<>O THEN merke=i 

375 IF flag=i THEN LOCATE »+i ,ytlse$=MID& (wart#in) ,i,1):PRINT e 
ASC tet} 

380 NEXT i :IF merke=i THEN 250 


ee) 
400 
#10 
420 
430 
440 


IF flag =0 THEN flag=1:60T0 350 ELSE n=n+1:B50T0 250 

IF r<>i1 THEN 470 

merke=0 : flag=0 

uU=Ys FOR i=1 TO LEN{wort# (in?) 

IF feld(x+i-1,19<>0 THEN merke=i 

IF flag=i THEN LOCATE »+i „utlse#=MID$ (wort&in) ,„i,13: PRINT 


ASC (ef) 


4509 
Ah0 
470 
480 
4909 
500 
sio 


u=u=i1sNEXT i :IF merke=i1 THEN 250 

IF flag =0 THEN flag=1:60T0 420 ELSE n=n+1:50T0 250 
IF r<>2 THEN 540 

merke=0 :ıflag=6 

FOR i=1 TO LENtwert#tn)) 

IF feldix,yri-i)<>O THEN merke=i 


IF flag=1 THEN LOCATE x»+ti,y-isef=MID# (wort#in) „i,1)ıPRINT e# 


ASC tes) 


320 
S30 


NEXT i sIF merke=1 THEN 250 
IF flag =0 THEN flag=1:60T0 470 ELSE nen+1:50TD 250 


S40 IF r<>3 THEN 610 

550 merke=0 :ıflag=0 

560 U=Y: FÜR i=1 TO LENtwort#(n)) 

5706 IF feldix-i-1,U)3<>0 THEN merke=1 

580 IF flag=i THEN LOCATE x-i ,urlses#=MID$ (wort$in) ,i,1) PRINT 
ASC (es) 

570 u=u-1:NEXT i sIF merke=i THEN 750 


&00 
lo 
620 
&30 
640 
so 


IF flag =6 THEN flag=1:G0T0 560 ELSE nentia SOTD 250 

IF r<>4 THEN 580 

merke=0 :flag=0 

FOR i=1 TD LEN (wort$tn}} 

IF feld(x-i-1,y)<>O THEN merke=i 

IF flag=1 THEN LOCATE mi ,y+il3es=MID& (wort in) ,i,I) PRINT 


ASC (ef) 


[18] 
670 
850 
&90 
700 
710 
720 


NEXT. .i =:IF merke=i1 THEN 250 

IF flag =0 THEN flag= 1:G0OT0 830 ELSE n=n+1:50T0 250 
IF r<>5 THEN 750 

merke=0 :flag=0 

u=Y: FOR i=1 TO LEN fworts(n)) 

IF feldix-i-1,1)<>0 THEN merke=i1 


IF flag=1 THEN LOEATE x-i „utises=MID$ (wort$ in) „i,2) PRINT e 


ASC (es) 


730 
740 
750 
760 
779 
780 
770 


800 
8io 
820 
830 


56 


u=zu+l33NEXT i ıIF merke=i THEN 250 

IF flag =0 THEN fFlag=1:50T0 700 ELSE nen+1:60T0 250 
IF r<>&4 THEN 820 

nerke=0 ı flag=O 

FOR i=1 TO LEN twort$(in)} 

IF feldtx,y-1+i)<>0 THEN merke=1 


es steldix+ti-1l,y)= 


es; ı1reldix+i-1l,u)= 


a ifeldis sy-l-i)® 


et; :feldix-i-1,W= 


et; ıfeldix-i-1l,y)= 


$;:teldix-i-i1,u)= 


IF flag=1 THEN LOCATE x+l,y+ti ses=MID$& (wort$ in) ,i,1):PRINT efzjifeldix,y+i-i 
I=ASE (ef) 


NEXT i :IF merke=1 THEN 250 

IF flag =0 THEN flag=1:60T0 770 ELSE n=n+1:5DT0 250 
IF r<>7 THEN 250 

mnerke=0 ıflag=0 


Gompurke mi 
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840 U=Yı FOR i=i TO LENiwort# in}) 

850 IF feld(x+i-1,U)s>0 THEN merker-i 

840 IF flag=i THEN LOCATE x+i „urlses=MIDdt (wart in) „i,1}:PRINT es s feld (w+i-i,wW= 
ASC (ef) 

870 uru+1:NEXT i :IF merkesi THEN 250 

880 IF flag =0 THEN flag=1:50T0 840 ELSE n=n+1:60T0 256 

870 

990 REM feld mit buchstaben fueilen 

710 

720 PEN 2 

930 FOR Y=06 TO 23:5FOR x=0 TO 37 

FAO IF feldix,y)°>0 THEN 1030 

750 b=INT(RND (13 #243 +65 

9&0 i=INT(RND(13#2) 

970 IF i=0 THEN 1070 

980 IF b=70 THEN b=45 

990 IF b=8F7 THEN b=4& 

10009 IF b=B8 THEN b=4? 

1010 IF b=81 THEN b=73 

1020 feld (x,y}=bILOCATE xt1l,y+ti1:PRINT CHRE(bI; 

1030 NEXT x,y 

1040 SOUND 1,30,20 

1050 RETURN 

1050 ° 

1079 REM ausdrucken 

1090 ° 

1990 PEN 1:L0CATE 2,25: FRINT"Loesung ausdrucken j/n"; 

1100 e$5=INKEYfı IF e#="" THEN 1100 

1118 IF e$="j" THEN 31120 ELSE 12006 

1120 PRINT #8 ,CHRF (ZI SCHRE (ETI : "Fettdruck 

1130 PRINT #3,CHRS$(14)3" Loesung: ":PRINT #B 

1120 FOR y=0 TO ZFOR x=0 TO 397 

1150 IF feldix,y)=0 THEN FRINT #8,".": ELSE FRINT #8,UFFERFLCHR$ Feldin,y’3)z 
11&0 NEXT xıPRINT #B: NEXT y 

1170 FRINTF #8: PRINT #9 

1180 LOCATE 1,25: PRINT"Loesung nochmal drucken 7"3 

1199 GOTO 1100 

1200 SOLUND 1,46,35:LD0EATE 1,25: PRINT" "GOSUR 890 
1210 PEN 1:L0OCATE 1,25:PRINT" Raetsel ausdrucken j/n " 

1220 sa$=INKEYS$+ IF af="" THEN 1220 

12509 IF ag="j" THEN 1240 ELSE RUN 

1240 PRINT #8,CHR#(14);" Raetsel:":PRINT #B 

1250 FOR y=0 TO 23: PRINT #8,CHR# (1435: FOR x=0 TO 57 

1250 PRINT #8 ,,UFPER$ (CHR$ (feld (x ,yı)3a 

1270 NEXT x: PRINT #8:NEXT y 

1280 PRINT #8: PRINT #8 

1270 PRINT #8,"Folgende Worte sind zu suchen: ":FRINT #8 

1309 FOR i=ö 10 z-i:PRINT #8," "wort#&(i)sNEXT i 

1310 SDUND 1,30,20:G60TD 1210 

1720 ' 

1330 REM *#*# melodie spielen ##* 

1340 ° 

1350 RESTORE 

1340 READ a,b:b=b/2 

1370 IF a=-1 THEN RETURN 

1380 SOUND 1,2,b:50UND 2,0.5%a,b 

1390 SOUND 4,0.25%3, b:G0TO 1380 

1400 DATA 478, mie PM 379, 50 ,358,50,317,200,0,5,319,50,478,50,377,50,358,530,317,200,9 
39,517,100 

1410 DATA 478,50,379,50,359,50,319,100,5377,100,478,100,377,100,426 ,200 
1420 DATA 0,5,424,50,379,50,0,5,377,50 ,4254,50,478,150,0,5,478,50 
1430 DATA 379, 100, 319, 100, 0,5, 319, 50, 358, 150, ö, 55 358, i00, 379, 50,358,50,519,100,3 
797,100 

1440 DATA 478,100,425,100,4798,209,0,5,478, 50,-1,1 
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programme 


TOWER sr cpc-464 


Taktisches Gespür, strategisches 
und logisches Denken sowie 


schnelles Erkennen der Situatio- 


nen sind gefragt. 

Eine neue Spielversion, welche Ähn- 
lichkeit mit dem bekannten „VIER- 
GEWINNT" aufweist. Zu Beginn 
des Spieles stehen mehrere Spiel- 
möglichkeiten zur Verfügung. 
Möglichkeit 1: 

Man spielt zu zweit 

Möglichkeit 2: 

Man spielt gegen den Computer 
Möglichkeit 3: 

Der Computer spielt gegen sich 
selbst - 

Nach der Auswahl der entsprechen- 
den Betriebsart wird das Spielfeld 
aufgebaut, Dieses besteht aus einem 
großen Quader, welcher in 10mal 6 
Fächer unterteilt ist. Der Sinn des 
Spieles ist relativ einfach: Jeder 
Spieler (Computer) kommt abwech- 
seind an die Reihe und muß einen 
Würfel ablegen. Ein Würfel kann im- 
mer nur auf einen anderen oder auf 
den Boden aufgetürmt werden. Ziel 
ist es nun, möglichst eine Reihe von 
vier Würfeln horizontal, vertikal oder 
diagonal zu erreichen. Das Ablegen 
geschieht dadurch, daß man die 
Nummer der entsprechenden Spalte 
(0-9) eingibt. Gibt man statt der 
Nummer den Buchstaben „c“ ein, so 
zieht der Computer für den Spieler, 
Die „Intelligenz“ des Computers wur- 


de bewußt in Grenzen gehalten, um: 


auch dem Anfänger eine Chance ein- 
Zuräumen, 

Das Spiel wird durch eine räumliche 
Darstellung und eine Music-Routine 
auch für den Grafik-Freund interes- 
Sant. 

TOWER ist ein Strategiespiel für 2 
Personen, wobei der Computer eine 
oder auch gleich beide Personen 
übernehmen kann. 






& 


D 


2209 


Variablen-Liste: 


= 8 
frei = Vertikale Position des nächsten Zuges 


modus Enthält Betriebsart 

1 = 2 Spieler 

2 = Gegen den Computer 

3 = Computer gegen Computer 
ed = Wird für alle Tastenabfragen benutzt 
rot = Anzahl der roten Würfel in einer Reihe 
rolmax = Marke maximal der Variable rot 
blau = Anzahl der blauen Würfel in einer Reihe 
blaumax = Marke maximal der Variable blau 
zug = Zug, welcher vom Computer ausgeführt wird 
mi, m2, c, c1,c2 = Hilfsvariablen 
xy,\,u wahl = Hilfsvariablen für Schleifen 
feld (x,y) = Spielfeld x = &bis 9, y = &bis 5 





palte, in weiche der nächste Würfel gesetzt wird 













Inhalt 

& = Feld unbesetzt 

1 = Feld von Spieler 1 besetzt 

2 = Feld von Spieler 2 besetzt 
ie einzelnen Routinen sind im Listing durch Rem-Zeilen dokumentiert. 








RENATE ERINNERN 
R * 
* TOWER fuer Schneider cpc * 
% * 
* Denkspiel fuer 1 oder Z Spieler * 
"x f + 
* Eopyright 0.Zabel * 
* * 
* 


7 KEERRNRKERNRRTEHN N HT KH HR TI N RR 


REM #** farben festlegen ### 


INK 0,0 : "hintergrung schwarz 

INK 1,6 : "hellrot 

INK 2,1 =: "blau 

INK 3,26: "weiss 

BORDER 4 

MODE 0 s 

PEN i= LOCATE 4,3:PRINT"T O WE R":PEN 2 
FOR x=50 TO 506 STEP 40:y=300:G0SUB Ss40:NEXT x 
LOCATE 2,10:PRINT"1 Spieler/Spieler" 
LOEATE 2,12:PRINT"2 Spieler /Lomputer" 
LDCATE 2,14: PRINT"3 Computer /Computer" 


236 PEN 3:LOCATE 3,22 :PRINT" CC} G.Zabel 85" 


240 
250 
260 
270 
275 


SOSUB 1720:L0CATE 4,18:PEN 9:PRINT"waehle Modus }" 
e$=INKEYF 

IF e$="1" THEN modus=1:50T0 270 

IF es="2" THEN modus=?:50T0 290 

IF e#="3" THEN modus=3:50T0 290 
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GOTD 250 

MODE 1:C1L5:505UB 810 

LOCATE 3,1:PRINT" TOWER iD) O.Zabel" 
REM ##* spieler I rot #%%* 


® 


LOCATE 10,24:PEN 1:PRINT"Zug von Spieler 1" 
GOSUB 2320 

SDUND 1,200,20 

IF moadus=2 OR modus=3 THEN et="c"-Güfo 400 
eF=INKEYF: IF et="" THEN 390 

e=-ASC les) —-A8 

iF ef="c" THEN GOSUB 1930:60T0 450 


"Ir ei OR e>7 THEN 3350 


IF feld(e,57<>0 THEN 3350 

GOSUB 1040 5 "LE 

GOSUB 126071IF rat>2 THEN BORDER 12,8:605SUB 1720: LICATE S,24: PRINT"##* Spiele 
hat gesiegt ##=" ELISE 470 

et=INKEYF:IF e$="" THEN 450 

RUN 


REM **# spieler 2 blau #*# 

LOCATE 106,24:PEN Z2:PRINT"Zug von Spieler 2" 
GISUB 2320 

SDUND 1,200,720 

IF modus=3 THEN es="c":60T0 559 
eF=INKEY£: IF et="" THEN 5306 

e=ASCte#t) -48 

IF e$="c" THEN GOSUB 19350:50T0 580 

IF es0 OR e>7 THEN 490 

IF feldie,SI<>6 THEN 490 

GOSUSB 1150 

GOSLUB 12506: IF blau>2 THEN BÜRDER 12,4:505UB 1720:L0CATE 5,24: PRINT"*#* Spiel 


er 2 hat gesiegt #*#" ELSE 620 


&00 
&10 
620 
630 
520 
450 

660 
670 
680 
690 
700 
710 

. 720 

730 

- 740 
750 
760 
770 


e3=INKEY$: IF e$="" THEN 400 
RUN 
GEOTD 330 


REM #** wuerfeli zeichnen #** 

REM konrdinaten in variablen x’/y 

c1=1:c02=2:60T0 59709 

ei=2:c2=1 

MOVE x,y 

SOUND 1,30 „20 

FOR i = 05 TO 24 

f=c1: IF i=24 THEN f=3 2 

DRAWR O,i,f :BRAWR -i1 „ÜsDRAWUR 0,—i :DRAWR i „oO 

NEXT i 

FOR i =2T08 

f=c2: IF i=8 THEN f=3 - 
DRAWR i,i,f=:DRAUR 0,24 =DRAWR -i,-i :DRAWR i,i :DRAWR -24,0 :DRAWUR —i,—i 


:DRAWR 24,-24,c1 


780 
770 
E00 
810 
820 
830 
840 
850 
860 
870 
880 
890 


8/85 


NEXT i 200 NEXT y 
RETURN 910 FOR x =1& TO 550 STEP 50 
a 920 MOVE x,340:DRAWR 30,30,3 
REM #%% gitter zeichnen #** 730 MOVE x+1,3540:DRAWR 30,30,3 
; 940 NEXT x 
FÜR x = 1& TO 550 STEF 50 950 MOVE 46,370:DRAW 544,370 
MOVE x ,40: DRAW x ,340,3 940 FOR i = 08 TO 20 
MOVE x+1,40:DRAW »+1,540 970 MOVE 548-1 ,3568-1:DRAWR O ,-300,2 
MOVE x+2,40:DRAW x+2,340 9890 NEXT i 
NEXT x 990 TAB:FOR x= 44 TO 530 STEP 50 
FOR y = a0 TD 340 STEP 50 1000 PLOT x,350,1:PRINT USING "#"325:z=z#1 
MOVE 16&,y:DRAW S1B,y 1010 NEXT x: TABOFF 

L-] 
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1020 RETURN 1196 frei=0:FOR y = 5 TD 0 STEP —1 

1630 " 1190 IF feld (e,y)<>0 THEN frei=y+lıy=0 
i040 REM #** spieler I setzt stein ##* 1200 NEXT y 

1050 REM e = spalte (0-9) 1210 x=50+ (ex50) : y=-S0+ (frei #50) 

10850 1220 GOSUB 580: "blauen stein setzen 
3070 frei=0: FÜR y = 5 TD 0 5TEP —1 1230 felgie,frei)=? 


1089 
1070 
11090 
1110 
1120 
1130 
1140 
1150 
1150 
1170 


IF feld (e,y)<>0 THEN frei=y+lıy=eo 1240 RETURN 

NEXT y 1250 

»=50+(8#50) 3: y=-50+ (frei 350) i2&0 REM ##* feld beurteilen *%** 
GOSUB 640: "roten stein setzen 1270 REM ® = x"position 
feldte,frei)=1 1280 REM frei = y-position 

RETURN 1290 REM ergebnis in : 

: 1300 REM rot = maximale reihe 

REM %##+ spieler 2 setzt stein #x% 1310 REM blau = maximale reihe 

REM e = spalte (0-7) 1320 ° 

e 1550 c=1:60SUB 1370:ml=-rot:m2=erotmax 





e=2:605UB 1370:blausrot:blaumaxsrotmax:ırot=smi:srotmax=m? 
RETURN 


rot=0: rotmax=0 

FOR i=e+ti TG 9: "rechts kontrolle 

IF tfeld(i,frei}=c THEN rot=rot+1 ELSE i=9 
NEXT i:IF rot>2 THEN RETURN 

REM 

FÜR i=e-1 TO 0 STEP-1: "lings 

IF feldli,frei)=c THEN rot=srot+i1 ELSE i=0 
NEXT isIF rot>Zz THEN RETURN 

ZF rot>rotmax THEN rotmax=rot 

roat=oO 

FOR i=frei-1 TO 0 STEF-1: "unten 

IF feldte,i)=c THEN rot=srot+1 ELSE i=0 

NEXT i=:IF rot>2 THEN RETURN 

IF rat>rotmax THEN rotmax=rot 

roti=0 

y-frei:FOR i=e+l1 TO 9: "rechts oben 

y-ytlilF feld(i,y)=c THEN rot=srot+1l ELSE i=9 
NEXT i:IF rot>Z THEN RETURN 

IF rot>rotmax THEN rotmax=srot 

y=frei:FOR i=e-1 TOD 0 STEP-1: "lings ne) 
y-y-1z:zIF y<ö OR y>5 THEN i=0 ELSE IF feldfi,y)=c THEN rotsrot+1 ELSE i 
NEXT isIF rot>? THEN RETURN 

IF rot>rotmax THEN rotmax=rot 

rot=O 

y-freisFOR i=e-1 TO 6 STEF-1: "lings oben 
y=ytl:IF feldli,y)=c THEN rot=srot+1 ELSE i=0 
NEXT i=:IF rot>2 THEN RETURN 

IF rot>rotmax THEN rotmax=rot 

REM 


y-frei:FOR i=e+i1 TO 7: ’rechts unten 


y=y-l:IF y<O OR y>5 THEN i=9 ELSE IF feld(i,y)=c THEN rot=rot+1 ELSE i=9 
NEXT isIF rot>Z THEN RETURN 

IF rot>rotmax THEN roatmax=rot 

RETURN 

REM *#*%* melodie spielen + 

RESTORE 

RERD a,b:b=b/2 5 


IF a=-1 THEN RETURN 
SOUND 1,3,b:50UND 2,0.5*a,b 


1780 SOUND 4,0.25%3,b:6DT0 1750 

1790 DATA 478, Ss0, 379, s0,358,70, 319, 200,0,5,517,50,478,50,379,50,358,50,319,200,0 
+3,317,100 

1800 DATA 4786,50 ,377 „50, 558,50,319,100,379,100,478,100,379,100,426,200 


1810 


Dan 0,95 425, 50,379,30 ‚0,5,379, 0 426,50, A78, 150 ,9,5,478, 50 
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1820 DATA 379,100,319,100,0,5,319,50,358,150,0,5,358, 100,377 ,50,358,50,319,100,3 
77,100 

1830 DATA 4798,100,425,100 ,478,200,0,5,478, 50,-1,1 
1840 

185060 REM ##* freies feld suchen ### 

1840 REM e = spalte 0-7 

1970 

1580 frei=0:FOR y = 5 TO O STEF-—1 

1890 IF feld (e,y})f>6 THEN frei=y+l:ıy=O 

1700 NEXT y 

1710 RETURN 


19720 

1730 REM ##* computer zieht fuer rot #*# 
1940 

19509 LOCATE 10,24:PRINT" computer zieht 
1780 zug=-i 


1770 FOR wahl = 0 TO 7 

1780 IF feld(iwahl,S?<>0 THEN 2010 

19970 e=wahl:GOSUB 1850 

2600 EOSUB 1250: IF blau>2 THEN zug=wahl : wahl=? 
2010 NEXT wahl 

2020 IF zug>-i THEN 2100 

Z050 rmax=0 

2040 FOR wahl = 0 TO 9 

2050 IF feldinahl „SI<>0 THEN 2090 

2040 e=wahl :GDSUB 1850 

2070 GOSUB 1240: 1IF rot>rotmax THEN rotmax=rat 
2090 IF rotmax>rmax THEN rmax=rotmax : zug=wahl 
2070 NEXT wahl 

2100 e=zug: IF e{ü THEN e=5 

=110 RETURN 

2120 

2150 REM #** computer zieht fuer blau #** 
2140 

2150 LOLATE 109,24: PRINT" computer zieht 

2180 zug=—1 

=2170 FOR wahl = 0 10 7 

2180 IF feld(wahl ,577<>0 THEN 2710 

2170 e=wahl :5054UB 1850 

2200 GESUB 1250: IF rot>2 THEN zug=wahl :wahl=? 
2210 NEXT wahl 

2220 IF zug>”1 THEN 7300 

2230 bmax=0 

2240 FOR wahl = 0 TO % 

2250 IF feldiwahl ,„5})<>0 THEN 2270 

2260 e=wahl:GDSUB 1850 

2270 GOSUB 12680: IF blau>blaumax THEN bDlaumax=blau 
228G iF blaumax>bhmax THEM bmax=blaumaxı zug=wahl 
227CG NEXT wahl 

23009 e=zug:IF e{O THEN e=4 

231060 RETURN 


2350 REM #** unentschieden *## 


2350 u=0:FOR x=0 TO 9:IF tfeldix,5)3=0 THEN u=sl 
23640 NEXT x 


23706 IF u=0 THEN LOCATE 2,24: PRINT"-———-- unentschieden -——---——-" ELSE RETURN 
2380 e#=INKEY$:IF INKEYF="" THEN 2380 5 
2390 RUN 





Grafik-Einzeiler für den CPC-464 


Ha FAHLOMIE E dl: tet to PübE IE 
. He: FOR =: in Zad STIER f ? ! i 
1 237584 1ER DRAN I. IERCHENT ste INKEYE: EHE 





BE BEGSBERLE Kat" LS: IHRE 1 
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software-service 


Schneider CPC-464 


Autorennen, Kassette 11,- DM, Be- 
stell-Nr. US 3/85 


Universal-Datai V1, Kassette 9,- 
DM, Bestell-Nr. US 4/85 


Computerschrift/Symboi-Swap, 
Kassette 10,- DM, Bestell-Nr. US 
5/85 


Aladin, Kassette 9,- DM, Bestell-Nr. 
US6/85 - 


Fallschirmspringer, Kassette 9,- 
DM, Bestell-Nr. HC/SR-3 


Geisterschloß, Kassette 9,- DM, Be- 
stell-Nr. HC/SR-4 


Super-Miner, Kassette 14- DM, 
Bestell-Nr. SR 42 


GPC-Bert, Kassette 14,- DM, Be- 
stell-Nr. SR32 





VC-20 


Bestellschein/Glücky, Kassette 8,50 
DM, Diskette 15,- DM, Bestell-Nr. 
v6 


Multigraph/All Rammer, Kassette 
11,- DM, Diskette 15,50 DM, Be- 
stell-Nr. V 71 


Zyklo/Meteorit, Kassette 11,- DM, 
Diskette 19,50 DM, Bestell-Nr. V 81 


Garten/Schloß Gruselstein, Kassette 
14,- DM, Diskette 19,50 DM, Be- 
stell-Nr. V 91 


Fressman/Outlaw, Kassette 14,- 


DM, Diskette 19,50 DM, Bestell-Nr, 
V 101 


Prost/Buffalo, Bill, Kassette 14,- 


DM, Diskette 19,50 DM, Bestell-Nr. 
v 121 


Joy Man/Powerpack, Kassette 14,- 
DM, Diskette 19,50 DM, Bestell-Nr. 
v2 


Der rasende Malocher/Frankie goe 


to Pharao, Kassette 14,- DM, Dis- 


kette 19,50 DM, Bestell-Nr. V 32 


Matron, Obst, Kassette 14,- DM, 
Diskette 19,50 DM, Bestell-Nr. V 42 
Race On, Cagy, Kassette 14,- DM, 
Diskette 19,50 DM, Bestell-Nr. V 52 


Zyklo, Geldsammier, Kassette 11,50 
DM, Bestell-Nr. HG/V-1 


Star-Wars, Punktefresser, Kassette 
14,50 DM, Bestell-Nr. HC/V-2 


Catch the Fish, Mister Jump, Kas- 
Sette 14,50 DM, Bestell-Nr. HC/V-3 
Ghost's Eggs, Fox Hunt, Kassette 
14,50 DM, Bestell-Nr. HC/V-4 


Sprites/Space-Battle, Kassette 13,- 
DM, Diskette 19,- DM, Besteil-Nr, 
UV 2/85 


Grafik-Painter, Kassette 10,- DM, 
Bestell-Nr. UV 5/85 


VIC-Clock, Kassette 9,- DM, Be- 
stell-Nr. UV 6/85 


Decelevator, Kassette 9,- DM, Be- 
stell-Nr. UV 7/85 


Commodore 64 


Mauern/Widerstand, Kassette 8,- 
DM, Diskette 15,- DM, Bestell-Nr. 
C4 


Spate-Comets/Erdspalte/S prite- 
Data, Kassette 15,- DM, Diskette 
23,50 DM, Bestell-Nr. C 51 


Autostart/Bestellschein/Roadpain- = 


ter, Kassette 16,50 DM, Diskette 
23,50 DM, Bestell-Nr. C 61 


Hardcopy/Space-Fighter/Data-Ge- 
nerator, Kassette 15,50 DM, Disket- 
te 19,50 DM, Bestell-Nr. C 71 


Monster-Attack/Block-Painter/Ep- 
son-Drucker, Kassette 16,50 DM, 
Diskeite 23,50 DM, Bestell-Nr. C 81 


Projekt/Datenbank, Kassette 16,- 
DM, Diskette 23,50 DM, Bestell-Nr. 
691 


Spiders/The Basic, Kassette 16,50, 
Diskette 23,50 DM, Bestell-Nr. 
c 101 


High Noon/Skeet/ Grafik-Designer, 
Kassette 17,50 DM, Diskette 23,50 
DM, Bestell-Nr. C 121 


Sompufs mi 


Painter/Star-Baddie/Editor, Kasset- 
te 17,50 DM, Diskette 23,50 DM, 
Bestell-Nr. C 22. 


Wüstenraliye/Jet-Pac/Black Moore 


‚Castle, Kassette 17,50 DM, Diskette 


23,50 DM, Bestell-Nr. C 32 


Brieftaube, Gadelon, Kassette 19,50 
DM, Diskette 24,50 DM, Bestell-Nr. 
2 


Ritter Erik, Grand Prix Spritehilfe, 
Kassette 19,50 DM, Diskette 24,50 
DM. Bestell-Nr. G 52 


Multi-Key/S-Tool 64/ Interrupt-Pro- 
gramme, Kassette 16,- DM, Diskette 
21,- DM, Bestell-Nr. UC 2/85 


Spritehilfe/Diskloader/Directory, 
Diskette 21,- DM, Bestell-Nr. UC 
3.1/85 


Tape-Directory/Asmon/Data-Gene- 
rator, Kassette 15,- DM, Diskette 
21,- DM, Bestell-Nr. UC 3.2/85 


Fast-Load, Kassette 10,- DM, Be- 
stell-Nr. UC 4/85 


Diskmonitor/Zeichensatz, Diskette 
20,- DM, Bestell-Nr. UC 5/85 


Reassembler/Maskengenerator Kas- 
sette 15,- DM, Diskette 20,- DM, 
Bestell-Nr. UC 6/85 


Dei 64/Treiberprogramm für 
1526/MPS 802 Decelevator, Kas- I: 
seite 14,- DM, Diskette 19,- DM, | 
Bestell-Nr. UC 7/85 


Reactor, Concentration, Datenbank, 
Kassette 17,50 DM, Diskette 23,50 
DM, Bestell-Nr. HC/C-1 


Warlords Caverns of Death, Kassette 
14,50 DM, Diskette 19,50 DM, Be- 
steli-Nr. HG/C-2 


Alien-Destroyer, Duell, 
24,50 DM, Diskette 29,50 DM, Be- 
steil-Nr. HC/C-3 


Ocean Game, Tennis, Kassette 
17,50 DM, Diskette 23,50 DM, Be- 
stell-Nr. HG/C-4 
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7 De EEE 


_software-service_ 


Spiel- und Anwendungsprogramme 
für Ihren Computer 


Der Tronic-Verlag Heft 5/85 

bietet Ihnen Spiel- und Anwendungs-Software für alle Computersysteme. Bitte $gmmodore Kassette 

beachten Sie unsere Bestelliste. Alle aufgeführten Programme sind sofort Bestell-Nr. COM C 1/1 16,- DM 
lieferbar. Füllen Sie nur den beiliegenden Bestellcoupon mit den entsprechen- Bestell-Nr. COM D 1/1 20,- DM 
den Daten aus, und Sie erhalten innerhalb Schneider Kassette 








nur 1 Woche Besiell-Nr. COM S 1/1 16,- DM 
Ihre Lieferung. Sollten Sie jedoch keinen Bestelicoupon zur Verfügung haben Heft 6/85 
oder Ihre Programme ganz dringend benötigen, wählen Sie einfach Commodore Kassette 
Bestell-Nr. COM C 2/1 16,- DM 
rn Tel.-Nr. 05651/40643 Bestell-Nr. COM D 2/1 20,- DM 
en lt Scheider Kassette 
Wir werden Ihre Bestellung sofort bearbeiten. Bestell-Nr. EOM S 2/1 16,- DM 
Bitte beachten Sie: Heft 7/85 
Sie sparen sich zusätzliche Kosten (bis zu DM 5,-), wenn Sie per (Commodore 
Vorkasse (bar, Verrechnungsscheck) bestellen. Besteli-Nr. COM CK 3/1 16,- DM 


Auslandsbestellungen nur gegen Vorkasse! Bestell-Nr. COM CD 3/1 20,- DM 


Bestell-Nr. COM SK 31 16,- DM 
Bestell-Nr. COM SD 3/1 39,- DM 






Aus diesem Heft: Achtung: Der Preis von 16,- DM 

pro Kassette gilt nur mit Einsen- 

Bestell-Nr. COM CK 4/1 16,- DM Bestell-Nr. COM SK 4/1 16,- DM dung (Quittung) des Bestellcou- 
Bestell-Nr. COM CD 4/1 20,- DM Bestell-Nr. COM SD 4/1 39,- DM pons. Ohne Coupon 24,50 DM. 


DE- --- 44H aHHHHammaamaaaeanaeannen nenn >= 


“Compute mit“ Software-Service+e Bestelleoupon 8 + “Compute mit“ Software-Service 





Die Zustellung erfolgt: gegen Vorkasse U] oder per Nachnahme U] + Versandkosten 
Auslandslieferungen nur gegen Vorkasse 

innerhalb von 1 Woche 

Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 


Bitte liefern Sie mir: EI Kassette für er er aleleAnzahl 


Besteli-Nr. 


D Diskette für 0 El Anzahl 


Bestell-Nr. 
zum Preis von gesamt REN ee AM 


| Name, Vorname Straße, Nr. 


PLZ, Ort j Datum, Unterschrift 
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_ ELEPHANT. 
. KOMPROMISSLOS 
ERSTE WAHL. 











"NEVER \ FORGETS? 






Speichern und Drucken. Fehlerlos. Mit 100% Sicherheit: 
das ist Elephant Memory Systems’" 
Unter diesem Markennamen erhalten Siehochwertiges Zubehör 
für perfekt arbeitende Kommunikations-Systerne der Text- 
und Datenverarbeitung - wie Disketten, Farbbänder, Farbband- 
kassetten und Spezialreinigungsmitel: . 
Kompromiß ist Risiko, Zweite Wahl ist Unsicherheit - deshalb: 
verlangen Sie Elephant Memory Systems“ 


ELEPHANT’NEVER FORGETS. 


MARCOM Computerzubehör GmbH 
ne Podhieiskistralie 321, 3000 Hannover 51, Tel. (0511) 64 7420 
Frankreich: Soroclass, 8, Rue Montgalfier - 93115, Resny-Sous-Beis, Tel.: 16 (1) 855-73-70 
&roßhritannien: Densison Mfg. Co. Ltd, Colonial Way, Watford WD2 4JY, Tel.: 0923 41244, Telex: 923321 
italiere; King mec s.p.a. - Via Regio Parco 108 - 10038 Settimo Toriness 
Welteres Ausland: Dennison international Company, 4006 Erkrath 1, Matthias-Glaudius-Straße 9, Telex: 858 6600 





Seompufe mie 


